•v^ 



jug ^ CoCo Com nunit„ 



The 




THE COLOR COMPUTER MONTHLY MAGAZINE 

April 1993 Vol. Xll No. 9 Canada $4.95 U.S. $3.95 




Product Review: 

A C compiler 

for 

RS-DOS 

on 

Page 6. 



Feature Program 



A Database 
for OS-9 Files 



by Philip G. Scherer 



fter you accumulate many OS-9 
programs, it's pretty easy to 
\ forget what some of them do. 
iwffl It's also inconvenient to 
/ / \ \ search disk after disk, look- 
ing for a specific file or program you know 
is stored somewhere. DBOS9 is a database 
designed to make such things simpler by 
allowing you to store the names and de- 
scriptions of your OS-9 files and programs 
in a central location. 

For operation, DBOS9 requires a CoCo 
3, OS-9 Level II, at least one disk drive, and 




DBOS9 is a data- 
base designed to 
make such things 
simpler by allow- 
ing you to store 
the names and 
descriptions of 
your OS-9 files 
and programs in a 
central location. 



the OS-9 modules del and copy. In addi- 
tion, if you plan to enter the listings as 
printed here, you'll need a C compiler and 
the CGFX library written by Mike Sweet. 
(This library is available in the OS9 Online 
sig on Delphi. Mike's username is 
DODGECOLT.) Alternatively, the compiled, 
ready-to-run program is on the April 1 993 

RAINBOW ON DISK. 

Up 'n' Running 

Before you start DROS9, you need to 
give it a place to store the information you 
enter. Create a new subdirectory named 
BASE9 in the root directory of your /dd 



device. (Those who are using the OS-9 
BBS database from the October issue don " t 
need to do this; this database uses the same 
data directory as that one.) To do this, 
simply enter ma kdir /cd/BASE9attheOS- 
9 prompt. 

With the BASE9 data directory in place, 
make sure the executable program (dbos9) 
is in your /dd/CMDS directory, along with 
the OS-9 del and copy commands. Also 
make sure dbos9's execute attributes are 
set. If not, you can accomplish this by 
enteringattr /dd/cmds/dbos9 e peatthe 
OS-9 prompt. 

Toexecute the program, just enterdbos9. 
The first thing the program does is look for 
the database file, named os9, in the /dd/ 
BASE9 directory. It won't find this file the 
first time it is executed, so it creates the file 
automatically. DBOS9 also creates a data- 
base-keyword file, named keyword.dat, 
the first lime it is executed. 

Once DB OS9 ascertains these files are in 
place in the BASE 9 directory, the main data- 
base menu appears on the screen. This 
menu provides four options and is "hot- 
keyed," which means that you don't have to 
press ENTER aftermakingaselection. The 
Search menu, which we'll discuss in a mo- 
ment, works the same way. Some of the 
stand-alone entries at program prompts, 
however, do require that you press ENTER. 

Entering Data 

To enter data for a single record (infor- 
mation about a specific file or program) in 
the DBOS9 database, select Option 2 (En- 
ter) from the main menu. In the upper-left 
corner of the screen you'll see a box with 
the available keywords. If the program or 
file for which you are entering data fits one 
of these keywords, simply type the appro- 
priate keyword number and press ENTER. 
If none of the keywords on the list seem 
appropriate, or if you have not yet entered 
any keywords, press the correct number for 
the New Keyword option that appears on 
the list, then enter the new keyword. 

DBOS9 keywords may be up to 1 3 char- 
acters in length and may include spaces. It 

Database continued on Page 10. 
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by Charles Kiedaisch 



I wrote Financial Statement as a means 
of tracking personal income and ex- 
penses. In addition, the "spreadsheet" 
printed by the program enables me to 
quickly determine my net worth. Fi- 
nancial Statement is designed to work on 
any CoCo with at least 1 6K and Extended 
basic. To use it, first enter the program 
listing and save it to tape or disk, then run it. 
When you run Financial Statement, you 
are asked to make sure yourprinteris online. 
This is important, as the program prints 
data as it is entered, allowing for an unlim- 
ited number of entries. When prompted, 
enter the current date. After this, the 
program"s main menu appears. 

To enter data, first select from the main 



menu the type of entry you are making 
(weekly, monthly or yearly income or ex- 
pense). You are then asked for a short 
description of the item and the amount for 
the specified period. After you have entered 
this data, the printer immediately prints it. 
Make sure you enter all sources of regular 
income, as well as all regular and antici- 
pated expenses (bills go here). 

Option 7 on the main menu allows you to 
enter standing assets. For instance, if you 
have an IRA or perhaps a savings account, 
the current balance should be entered using 
this option. Any item that contributes to 
your net worth is considered an asset. 

Net Worth continued on Page 7. 
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Taking Data to Another OS 

Editor: 

Is it possible to download a CoCo 3 disk 
to a PC-compatible, and is there a program 
to do this? 

Wayne A. Johnson 

Route 2 

Thame sford, ON N0M2MO 

Canada 

Sure. A number of utilities have been 
developed over the years for transferring 
datafrom the CoCo to MS-DOS computers. 
While most of the commercial products are 
no longer available, several shareware and 
public domain offerings have been uploaded 
to online information services such as Delphi 
and CompuServe. Also, the June and July 
1986 issues of THE RAINBOW contain pro- 
grams by Marty Goodman that are de- 
signed to handle the transfer. 

Another means of transferring data is to 
use a null-modem cable between the CoCo 
serial port and a serial port on the PC- 
compatible . Then use communications soft- 
ware on each end, and transfer the file by 
uploading from the CoCo and download- 
ing with the MS-DOS machine. 

Regardless of the route you follow, re- 
member that in most cases CoCo programs 
cannot be executed on the PC-compatible. 
The biggest exception to this is BASIC pro- 
grams, which can be edited to work with the 
PC's specific flavor of BASIC, whether it is 
uw-basic or QBAS1C. Still, such programs 
need to be saved in ASCII format on the 
CoCo (before the transfer) in order to be 
decipherable by the PC. 

PMODE4 Screen Dumps 

Editor: 

I have a CoCo 3 with a CM-8 monitor, 
two FD-502 disk drives and a Star Micronic s 
NX-1001 printer. I got involved with the 
CoCo about three years ago and have taught 
myself some BASIC programming, mostly 
with help from THE RAINBOW. I don't have 
a modem, so I don't have access to Delphi. 
I copy most of the programs from the maga- 
zine and learn from them. 

Looking through back issues, I came 
across your PM0DE4 screen dump (May 1992) 
and typed it in. I had some trouble at first, 
but after I changed the DIP switches, it 
worked fine. There is one thing that I don't 
understand: why does it print an "x" at the 
beginning of each row? 

Calvin Wilcox 

6626 Edgemoor Avenue 

Solon, OH 44 J 39 

As explained in the article, two different 
programs for producing screen dumps were 
presented. One is designed to work with 
Radio Shack printers in the Tandy mode, 
and the other is meant for use with IBM I 
Epson-compatible printers. The Star NX- 
1001 falls into the latter category. How- 
ever, there may be some minor differences 
between the IBM! Epson-compatible and 



the NX-1001 control-code sets. Since most 
printers produce a garbage character when 
they encounter a control code they don't 
understand, we bet this is where the problem 
lies. Carefully check the assembly-language 
listing for the control codes it uses, and 
compare these with the appropriate codes in 
your printer manual. 

A Ham in Need, Indeed 

Editor: 

I have a CoCo 2 for which I want to get 
amateur-radio and packet software, and 
Morse-code programs. I am also looking for 
a disk drive and a printer for this CoCo. 

On a related note, I have a CW/RTTY 

card that fits into the CoCo ROM slot. The 

cable has come unsoldered on this unit, and 

I don 't have a wiring diagram to help me put 

it back together. The cartridge was made by 

Kantronics. Can anyone help me with this? 

Tony By rum 

2002 2nd AvenueS. 

Ft. Dodge, IA 50501 

We imagine several CoCo users are still 
into amateur radio. Perhaps another reader 
can point you in the right directions. 

Looking for the Hershey Font 

Editor: 

I am looking for a copy of the public- 
domain Hershey font for use with William 
Bardcn's utilities published in the March 
1988 issue of THE RAINBOW. I have written 
Mr. Barden, but he has been unable to pro- 
vide me with a copy of the font. If one of 
your readers can provide me with this font 
set or tell me where to get it, please write to 
me at the address below. 

Trevor Boehm 

77 Inwood Crescent 

Winnipeg, MB R2Y 1A2 

Canada 

Wants to Save Screens 

Editor: 

Is there a program (other than one in 

machine-language) for saving the screen? 

I'd like one like that mentioned on Page 147 

of the March 1987 issue of THE RAINBOW. 

Denis Benjamin Marcil 

222 Lomas 

Sherbrooke.PQ J1J2R3 

Canada 

The program you noted in your letter 
originally was bundled with a complete 
printer package by Dayton Associates (9644 
QuailwoodTrail, Spring Valley, OH 45370, 
513-885-5999). For other screen-printing 
software, see the May 1992 issue of THE 
RAINBOW. 

Sailing Off to C 

Editor: 

I' ve been reverse engineering the OS-9 C 
compiler (6809) library into its original C 
source code. I don't know how close my 
source looks to Microware's original, but it 



compiles into the same object code, and 
that's good enough. I recently discovered 
that this compiler and the c.asm macro 
assembler are themselves written in C, and 
I've considered reverse engineering the C 
source for them also. However, before I 
start, I was curious if anyone has already 
done all the work? 

To be honest, it isn't so much the desire 
to have the original C source for the com- 
piler, assembler and 1 inker as it is simply to 
have a version in source form that I can 
customize. I've ported a Small-C (a subset 
of K&R C) compiler, but itisn't very good. 
The only full C compiler I know of is the 
GNU C compiler, which is far too big. 
Does anyone know of any C compiler (any 
processor — I'll port it) or a macro 6809 
assembler in source form? 

Carey Bloodworth 
1601 North Hills Blvd. 
Van Buren, AR 72956 

Building a New System 

Editor: 

I have just gotten back into the CoCo 
world and have managed to find a CoCo 3 
and an FD-502 disk drive. I have also been 
given a Tandy printer, but it's a parallel 
printer. Can I use Tandy's serial-to- 
parallel port converter (Cat. No. 26-2829) 
on a CoCo 3? I also need a Multi-Pak 
Interface. Can you tell me where I can find 
one. 

Marcus Springer 

101 S. Central 

Connersville, IN 47331 

You should able to use Tandy's serial/ 
parallel converter, but you' II have to build 
a special cable to go between the CoCo's 
4-pin serial port and the converter. A bet- 
ter solution would be to get a converter 

designed specifically for the CoCo. Both 
Owl-Ware (see the ad on the back cover of 
this issue) and Dayton Associates (see our 
response to Denis Marcil' s letter in this 
issue) offer such devices. 

The Multi-Pak Interface was hard to 
find even before Tandy officially discon- 
tinues it. After that time, the MP I became 
impossible to find. At this point, hope an- 
other reader has one he'd be willing to 
part with. 



the rainbow welcomes let- 
ters to the editor. Mail should be 
addressed to: Letters to Rain- 
bow, The Falsoft Building, 9509 
U.S. Hwy 42, P.O. Box 385, 
Prospect, KY 40059. Letters 
should include the writer's full 
name and address. Letters may 
be edited for clarity or to con- 
serve space. 

Letters to the editor may also 
be sent to us through our Delphi 
CoCo SIG. From the CoCo SIG> 
prompt, enter RAI to get to the 
Rainbow Magazine Services area 
of the SIG. At the RAINBOW> 
prompt, enter LET to reach the 
LETTERS> prompt, then select 
Letters for Publication. Be sure 
to include your complete name 
and address. 



Be a computer 

Only NRI gives you hands-on 
training with the latest 
programming tools: 

■ A 486sx computer with 80 meg hard drive ■ Windows 

■ Visual Basic ■ Power C ■QBasic ■ MS-DOS 

■ And much more! 



ammer! 




Hnly NRI at-home 
training gives you 
real-world 
programming skills in 
three in-demand 
languages: QBasic, 
C, and Visual 
Basic, today's hot 
new language 
designed for 
writing popular 
Windows applications. Best of all, 
you get hands-on training with a 
powerful new 486sx-based computer 
system, complete with 80 meg hard 
drive, Windows, and professional 
programming software you keep! 



NRI, the leader in at-home 
computer training, shows you how 

to take advantage of today's 
newest programming opportunities 

Get in on the ground floor of one of today's 
fastest-growing career fields: computer 
programming. The Bureau of Labor Statistics 
forecasts that job opportunities for program- 
mers will increase much faster than average 
over the next 10 years, with as many as 
400,000 new jobs opening up by 2005. 

And the fastest-growing segment of 
programming jobs will be PC programming, 
fueled by the phenomenal popularity of 
Windows, the efficient power of C, and the 
ascent of exciting new languages like QBasic 
and Visual Basic. 

Now, with NRI at-home training, you 
can get the new skills you need to build a top- 
paying career — even a full- or part-time 
business of your own — in this high-growth, 
high-opportunity field. 



demand... including programs designed for 
use in a Windows environment! 

Only NRI gives you first-hand program- 
ming experience with a state-of-the-art 486sx 
mini-tower computer system, complete with 
hard disk drive, a full megabyte of RAM, high- 
density floppy drive, mouse, monitor, and 
more — all yours to train with and keep! 

Plus you explore the extraordinary 
capabilities of three in-demand programming 
languages. You learn to design, code, run, 
debug, and document programs in QBasic, C, 
and Visual Basic. Best of all, since Visual Basic 
is specifically designed for creating Windows 
applications, you learn to generate fully 
functioning Windows programs, complete 
with text boxes, command buttons, and other 
sophisticated graphical interface elements. 



NRI's step-by-step lessons and hands-on 
programming projects help you first master 
the design concepts used every day by 
successful PC programmers. Then, with the 
support of your experienced NRI instructor, 
you quickly move on to learn programming in 
three of today's hottest languages. 

By the time you complete your course, 
you have a clear understanding of program- 
ming methods, languages, and techniques... 
and you're ready to handle any programming 
task with confidence. 



No previous experience necessary 

Train with NRI, and immediately start getting 
the money-making job skills you need to be a 
computer programmer — no matter what 

your previous background. 



Send today for your FREE catalog 

See how NRI at-home training gives you the 
programming know-how, the computer, and 
the software you need to get started in this top- 
paying field. Send today for your FREE catalog! 

If the coupon is missing, write to us at 
the NRI School of Computer Programming, 
McGraw-Hill Continuing Education Center, 
4401 Connecticut Avenue, NW, Washington, 
DC 20008. 

IBM PC/AT is a registered trademark of the IBM Corporation. Windows, 
QBasic, and Visual Basic are trademarks of Microsoft Corporation. 



SEND COUPON TODAY FOR FREE NRI CATALOG! 



NEW! The only programming 
course that includes a powerful 

486sx-based computer, 
80 meg hard drive, Windows, 
Visual Basic, and more — 
all yours to keep! 
Right from the start, NRI gets you actively 
involved in the challenge of real-world 
programming. Step by step, you learn to 
create the kinds of full-featured, powerful 
programs today's employers and clients 
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File-Transfer Protocols 



For uploading and downloading, Delphi 
supports most of the commonly used file- 
transfer protocols in addition to a few rela- 
tively obscure ones. While older file-trans- 
fer protocols were designed to transfer only 
one file at a time, some protocols are "batch" 
protocols, which allow you to transfer more 
than one file in a single session. Batch 
protocols also automatically send the 
filenames of the files to be transferred as 
well as some additional file attributes such 
as file size and protections. 

Most modern file-transfer protocols are 
error-checking; they divide the file into 
several "blocks" that may be of either fixed 
or variable size. If a block is not sent cor- 
rectly, the receiving end "complains" that 
the block arrived in error, and the block is 
sent again. This error checking ensures that 
the file is transmitted correctly even if there 
is noise on the communications line. As 
long as such a file-transfer protocol finishes 
sending all the blocks, the file was trans- 
ferred successfully — even if errors were 
encountered along the way. 

While the block size used by a protocol 
does not affect the contents of a file, it does 
have an impact on the speed at which the 
file is transferred, especially for people 
who use Sprintnet or Tymnet to connect to 
Delphi. The Sprintnet and Tymnet networks 



have a long latency, or response time. This 
latency varies with the time of day and 
current network use — both Sprintnet and 
Tymnet are used by many computer sys- 
tems other than Delphi. 

The result of network latency is that 
there is a definite and noticable pause be- 
tween transmitted blocks. Since transfer 
protocols that use smaller blocks have to 
send a greater number of blocks, they also 
spend more time waiting for the network to 
respond between blocks. This results in 
increased transfer time. As an example, the 
Xmodem protocol uses 128-byte blocks, 
while Ymodem (generally) transfers a file 
1024 bytes at a time. A file that is 4096 
bytes long would require four Ymodem 
blocks, thus having three pauses between 
the blocks. This same file would be sent in 
thirty-two blocks by Xmodem, resulting in 
thirty-one pauses between blocks. The 
moral: Xmodem is almost always consider- 
ably slower than Ymodem when used on 
networks like Sprintnet and Tymnet. If you 
call Delphi directly, avoiding network la- 
tency, you will not notice a very large time 
difference between the two protocols. 
(Ymodem results in fewer blocks, but each 
block is larger and takes longer to send than 
an Xmodem block.) 

Most transfer protocols are called "half- 



Telnet Echo Hints 



Last month I described how you can use 
Telnet to get from Delphi to other comput- 
ers. Many computer systems allow you to 
enter your password without it being ech- 
oed to your screen. However, if you are 
connected to Delphi using Sprintnet or 
Tymnet, you may see your password ech- 
oed to the screen when using Telnet to 
connect to another computer. This happens 
because Sprintnet and Tymnet echo the 
characters to your computer — not Delphi, 
and not the computer to which you are 
connecting. 

If you want Delphi itself (or the com- 
puter to which you want to connect) to echo 



the characters — and you usually will want 
to when you use Telnet — use the /ECHO 
HOST command to temporarily change your 
echo setting. If you are unsure what your 
current echo setting is, enter /ECHO to find 
out. 

Setting host echo is useful for more than 
invisible passwords: If you want to use a 
full-screen editor on the computer you are 
connecting lo. you need to set host echo 
before using Telnet from Delphi. Remem- 
ber that, for the same reasons, you need to 
select host echo if you want lo use Delphi's 
full-screen editors. 



Uploads At a Glance 



In the OS9 Online Applications data- 
base, Mike Guzzi (MIKE CUZZI) released 
catl , a program that allows you to create 
catalogs for OS-9 Profile. He also uploaded 
a utility that works with catl to catalog 
.GIF files. Michael Dalene (MDALENE) 
contributed zeroadd to solve a problem he 
encountered with catl. 

In the System Modules database, 
Michael Graffam (ILLUSIONIST) released 
new window descriptors for those who want 
to use more windows than were provided 
by Tandy. Erich Schulman (ESCHULMAN) 
contributed an 0S9P4 module that adds a 
new system call to dump the 6809's regis- 
ters. 

In the Programmers Den database, Ken 
Scales released the first version of an OSK 
terminal-information library; this is useful 
to programmers writing or porting Curses- 
bused programs, termi nf o, like termcaps, 
is a way of describing how different termi- 
nals perform various functions such as cur- 
sor positioning. If you are having trouble 
creating complicated C variable declara- 



tions, you'll be interested in COECL, up- 
loaded by David Graham (NIMITZ). This 
program deciphers C declarations and can 
also create them from English descriptions. 

In the OSK Applications database. Tim 
Kientzle (TIMKIENTZI.E) released a com- 
plete OSK port of TeX (including LuTeX 
and BibTeX, as wel 1 as the many other pails 
of the system). TeX is a typsetting system 
that can be used to produce high-quality 
output on dot-matrix and laser printers. 

In the OSK System Modules database, 
Mark Griffith (MARKGRIFEITH) released 
the latest serial drivers for the MM/1. Mike 
Sweet (DODGECOLT) uploaded the latest 
version of wind 1o for the MM/1, as well as 
documentation he has collected from many 
sources for the features supported by wi ndi o. 

In the CoCo SIG CoCo 3 Graphics data- 
base, Johnny Williams (DRILLMASTER) 
uploaded an Elvis puzzle datafile to be used 
with the Puzzler program. To use this puzzle, 
you need PUZZLER. BAS from the COCO 3 
PUZZLER group in the Games & Graphics 
database. 



duplex" because the sender sends one block 
then waits for an "I got it" from the receiver 
before sending more blocks. However, there 
are two ways to avoid the delay of waiting 
for a response. One of the easiest methods 
is called windowing. A windowing proto- 
col sends blocks even when previous blocks 
are not yet acknowledged by the other end. 
For example, WXmodem provides a four- 
block window. This means if the other end 
has returned an "OK" for Block 32, it can 
send blocks 33, 34, 35 and 36 without 
waiting for a response. If the communica- 
tions speed is low enough, a response for 
Block 32 would arrive before transmitting 
Block 36. In this case, windowing would 
allow continuous transmission with no 
pauses. The protocol stops sending data 
only when several blocks of data have been 
sent without response from the other end. 

The other method of avoiding network 
latency is the more -complicated streaming. 
Streaming protocols, such as Zmodem, con- 
tinue sending data, often without requiring 
any acknowledgement from the other end. 
The transfer is stopped and data 
retransmitted only on a request from the 
receiving end. 

A final important feature of file-transfer 
protocols is whether or not they are network 
transparent. A protocol that is not transpar- 
ent, such as Xmodem, requires an 8-bit 
connection to be able to send 8-bit binary 
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files. A protocol that is (or can be set to be) 
transparent, such as Kermit, encodes any 
characters the network may be unable to 
transmit into multiple characters that the 
network can transmit. For example, many 
networks use the XON and XOFF characters 
— Control-Q and Control-S, respectively 
— to start and stop transmission (referred to 
asflow control). \f you transmit a binary file 
that contains an XON or XOFF character 
across a network that uses XON/XOFF flow 
control, that character will be "consumed" 
by the network as a flow-control character 
with possible unexpected side effects. (For- 
tunately, Sprintnet and Tymnet do not use 
XON/XOFF flow control.) This is why Kermit 
and some other protocols that can encode 
control characters into network-rransmit- 
table characters are so important. 

We ' ve discussed some of the background 
for file-transfer protocols this month. Next 
time we'll look at how each of the common 
protocols works as well as when and where 
each should be used. 



Eddie Kuns is pursuing a doctorate in 
physics at Rutgers University. He lives in 
Aurora, Illinois, and works as a program- 
mer and researcher at Fermilab. Eddie is 
the database manager of the OS-9 SIG and 
can be reached online as EDD1EKUNS. 



DATABASE REPORT 



OS9 Online: 



General Information: 

IDE BUS INFORMATION 
9MIKE Mike Filipieu 
CUSTOM DATE MODULE PROMO 
JSUTEMEIER Jim Sulemeier 

NEW VIDEOS AVAILABLE 
WTHOMPSON Wayne Thompson 

OSK/AMIGA/FALCON 
MEKEARNEY Michael Kearney 

HI-DENS FLOPPY CONTROLLER HACK 
DSRTFOX Francis Swygcrt 

Applications (6809): 

NEW POINTERS FOR MVUE 

EARTHER Shawn Driscoll 

DATEP: DEMO OF CUSTOM DATE MOD 

JSUTEMEIER Jim Sulemeier 

ZtROAUD: ADDS LEADING 0"S 

MDALENE Michelc Dalene 

GIF CATALOG UTIL 

MTKF.^GUZZl Mike Guzzi 

CATL: CATALOG DISKS FOR PROFILE 

MIKE_GUZZI Mike Guzzi 

I TNFCOUNT: COUNTS LINES ON STOIN 

ILLUSIONIST Michael Graffam 

CLYDE 2.00 SCREEN SAVER 

SANDRIDER Charles West 

CATALOG 1.1: DISK FILE CATALOG 

MOHRT TimMohr 

LISTER: FILE LISTING UTIL 

RJCKGRAY Rick Gray 

Svstem Modules (68091: 

WINDOWS 14-32 

ILLUSIONIST Michael Graffam 

0S9P4 REGISTER DUMP MODULE 
ESCHULMAN Erich Schulman 

Games & Graphics: 

CLOAKING KLING0N SHIP CFLI ) 
GRAPHICSPUB Bob Momowski 
VE-2GIF VERSION 1.1 
MEYE001 Homer Meyer 
LINES: A SCREEN SAVER 
MEYE001 Homer Meyer 
0S-68K FLICKER ANIMATION 
GRAPHICSPUB Bob Momowski 

Music & Suund: 

REN & STIMPY SOUNDS #2 

DEANHOLDER Dean Holder 

REN & STIMPY SOUNDS #1 

DEANHOLDER Dean Holder 

Programmers Den: 

TERMINF0 FILES FOR OSK CURSES 
KSCALESKcn Scales 



GCC 1.42 

NIMITZ David Graham 

CPREP - ANSI C PREPROCESSOR VI. 

JMLSOFTJim McDowell 

CDECL: DECIPHER C FUNC CALLS 

NTMrTZ David Graham 

GUIDE TO PROGRAMMING STYLE 

JBUCATA Jason Bucala 

TERMCAP DEMO 

PAGAN Stephen Carvillc 

OSK Applications: 

HDBACKUP 1.5:HARD DRIVE BACKUP 
MARKGRIFEITH Mark Griffith 
FF 1.01: FIND FILE UTIL 
PAGAN Stephen Carvillc 
TEX SYSTEM FOR OSK 
TIMKENTZLE Tim Kiemzle 
NEW GRAPHICAL CLOCK FOR MM/1 
JOELHEGBERG Joel Hcgberg 
SPHERE: MOLECULAR MODELER 
EMTWO Paul M. Filch, Jr. 
BYACC: BERKELEY YACC 
NIMITZ David Graham 
EXTRACTOR FOR OSK 
KEITHBAUER Keith Bauer 

OSK Svstem Modules: 

NEW MM/1 SERIAL DRIVERS/DESCRIPT 
MARKGRIFFITH Mark Griffith 
WINDI0 REF. MANUAL: 1ST EDITION 
DODGECOLT Mike Sweet 

WINDI0 EDITION 48 FOR THE MMI 
DODGECOLT Mike Sweet 

Tutorials & Education: 

COPYING FILES. OS9->MSD0S 
BOBKEMPER Robert Kemper 



CoCo SIG: 

CoCo 3 Graphics: 

DOCTOR WHO PIX (DS69-B) 
DEANHOLDER Dean Holder 
ELVIS. PUZ 
DRILLMASTER Johnny Williams 

Hardware Hacking: 

COCO 2 MAC NULL MODEM 
MARTYGOODMAN Marty Goodman 
ADD A RESET BUTTON 
TERMITE Jim LaLone 

Music & Sound: 

0RCHLSIRA 90 MUSIC 
DEANHOLDER Dean Holder 
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64K and the "E" Board 

^^k 1 have aCoCo I with an "E" board 
^B^ that does not appear to be modified. 
The computer has a "32K" button on it. Is 
it really a 32K computer or can it address 
all 64K? Does it need to be modified in 
order to address all 64K? How can I tell if 
the modification has already been done? If 
it hasn't, how do I fix it? 

Wes Ratclijf (WESRATCUFF) 
Stockton, California 

ACoCo 1 "D" and "E" boards must be 
modified before they can address all 
64K of memory the 6809 supports. (The 
"F\ or "NC," board support 64K right out 
of the box, despite being labeled as 32K 
units by Tandy.) The modification to the 
"E" board, allowing access to the upper 
32K of memory, is usually pretty easy to 
spot — look for some bent pins on some IC 
chips and "odd" wires going between them. 
On the other hand, a few very dedicated 
hackers have performed this modification 
underneath the board in such a fashion that 
it is totally invisible from above. To be sure 
whether or not your "E" board has been 
modified for 64K, here*s a simple test: use 
an ohmmeter set to the RxlO scale to mea- 
sure the resistance between Pin 5 of the 
74LS138 chip (Ull) and ground. If the 
resistance is near zero (a tenth of an ohm or 
less), the computer has not been modified 
for addressing all 64K of memory. If the 
resistance is some tens or hundreds of ohms, 
the modification may already have been 
performed. 

To modify an "E" board CoCo 1 to 
address a full 64K of memory is a relatively 
simple procedure. First remove the 74LS02 
chip (U29) and bend pins 4, 5 and 6 so they 
go straight up. Solder a fine wire between 
Pin 6 and Pin 8, but be careful: Pin 8 
remains pointing down and will be rein- 
serted in the socket; make sure you attach 
the wire at the very top of Pin 8 so as not to 
cause interference. Now solder an 8-inch 
length of wire to Pin 4 and another to Pin 5 
of the 74LS02. Put a small piece of electri- 
cal tape on the metal part of the shield next 
to where the 74LS02 goes, preventing the 
bent pins from coming in contact with the 
wall and causing a short. Now replace the 
74LS02 chip in its socket and remove the 
74LS138 chip (Ull). Bend up Pin 5, then 
replace the chip in its socket. Trim the wires 
to length, then solder the wire coming from 
Pin 5 of the 74LS02 chip to Pin 5 of the 
74LS138 chip. Also connect the wire from 
Pin 4 of the 74LS02 chip to TP 1 . a staking 
pin located between the 6X09 chip and the 
40-pin cartridge connector, near Pin 34 of 
the 6809. With these modifications, the 
computer is capable of addressing a full 
64K. 

It is worth noting that Tandy sometimes 
used "half-good" (known to us as "half- 
bad") 64K DRAM chips in their 32K "E '- 
board computers. It's probably best to re- 
place all eight 4164 DRAM chips. These 
chips are commonly available used for 25 
to 50 cents each, and should not cost more 
than $1 apiece new from a chip vendor. 



Adding Drives to the FD-502 

^^k I notice the FD-502 disk drive from 
^B^ Tandy has somewhat different power 
connectors and termination than other 5 'A- 
inch drive systems. Can you tell me how to 
add an extra drive to the system? 

Robert Coates 

Sandy Hook, Manitoba 

Canada 

A The FD-502 uses power connectors 
that are standard not for 514-inch 
drives, but for modern 3'/2-inch drives. Its 
drive termination, too, follows the conven- 
tion for modern 314-inch 1 .44-megabyte 
drives — the floppy drive in the FD-502 
uses a soldered-in 1000-ohm resistor for 
termination. If you are adding another brand 
of floppy drive to the FD-502 case, I sug- 
gest the following approach: First, cut off 
the existing power connector on the spare 
power cable, and in its place attach a 5V4- 
inch-style power connector. Make sure you 
have it wired correctly, for if you reverse 
the 5- and 1 2- volt lines, you will destroy the 
new drive. Then, on the added drive, use a 
terminator-resistor pack rated not at the 
usual 1 50 ohms, but at 470 or 1 000 ohms. If 
you cannot find such a terminator pack, try 
adding the second drive first with its exist- 
ing resistor pack in place, then without, and 
see which arrangement works better. Note 
that since most terminatorresistorpacks for 
floppy drives are simply DIP component 
headers with resistors across them, you 
may be able to build your own terminator 
using such a header and seven 1000 ohm 
resistors. 



Using An Unknown Terminal 
With OS-9 

^^^ / picked up a "junker" dumb termi- 
^B\ nalfor use with my CoCo 3 under 
OS-9, but I have no documentation for it 
and don't know how to set its DIP switches 
for the proper baud, parity, stop bits and so 
on. The terminal has two banks of DIP 
switches and two DB-25 connectors on its 
rear. 

Tony Reed (TONYREED) 
Richford, Vermont 

A Your best bet is to use a null-modem 
cable between the terminal and the 
RS-232 Pak on your CoCo 3, then run a 
terminal program on the CoCo 3 and ex- 
periment with different switch settings on 
the terminal. (Your terminal may have one 
DB-25 port for serial communication and 
another for a printer. These are usually 
labelled as such. Make sure the cable is 
connected to the serial port.) When charac- 
ters you type on the terminal start appearing 
on the CoCo 3 screen, you're on the right 
track. 

Typically there are three to five DIP 
switches for setting set the baud, and one or 
two for setting the parity and word length 
for each port. By playing around with the 
switches and matching sellings with your 
terminal program, you can probably puzzle 
out most of the switch settings. Once the 



baud is determined, parity and word length 
can be deciphered in the same fashion. 
Finally, by playing with control-character 
sequences, you may be able to determine 
some of the basic screen and cursor control 
functions. This will be easier if you have 
some general knowledge of what control 
codes are supported on similar terminals. 

Smartwatch and the Tandy Controller 

^^^ How do I use a Smartwatch in the 24- 
^B^ pin ROM socket of a Tandy disk 
controller? 

Rick lllland (R1CKULAND) 
Milwaukee, Wisconsin 

A Art Flexser offered some help on this 
one. He suggests you plug the 
Smartwatch into the socket so that pins 1,2, 
27 and 28 overhang the top of the socket 
(put Pin 3 of the Smartwatch into the hole 
for Pin 1 of the 24-pin socket). But be sure 
to jumper Pin 28 of the Smartwatch to Pin 
26 of the Smartwatch, or to some other 
source of +5 volts. You can then plug your 
24-pin Tandy Disk BASIC ROM into the 
smartwatch socket, making sure that Pin 1 
of the ROM chip goes into the hole for Pin 
3 of the Smartwatch. (Of course this, in 
turn, connects to Pin 1 of the original Tandy 
ROM socket.) 

Killing Call Waiting 

4^k Calls coming through because of 
^B\ Call Waiting are interrupting my 
modem communications. How can I fix this 
without losing Call Waiting's benefits? 

Charles A. Marlow (CHARLESAM) 
N. Massapequa, New York 

A In most areas, dialing *70 disables. 
Call Waiting, giving you a new dial 
tone. In other areas, you must dial 1 170. In 
either case. Call Waiting is disabled only 
for the single call in which it is used. If your 
modem is Hayes-compatible, you can make 
a call by entering the following sequence: 

AT DT *70, ,nnn-nnnn 

where nnn-nnnn is the phone number you 
want the modem to call (if required, use 
1 1 70 in place of *70). The two commas tell 
the Hayes-compatible modem to pause for 
a few seconds while waiting for Call-Wait- 
ing disable to take effect. 

Disk Controllers and Drives 

^^ Will the Tandy FD-502 drive system 
™ work using a 26-3029 disk control- 



ler? 



Robert L. Fansler, Jr. (ROBERTI9I) 
Chattanooga, Tennessee 



A Yes. As a matter of fact, any 5'4-inch 
1 80K, 360K or 720K drive will work 
fine with any Radio Shack controller. Note, 
however, that the first controller Radio 
Shack released (Cat. No. 26-3022) does not 
work with the CoCo 3. That first disk con- 
troller can be recognized by the facts that all 
the chips in it are socketted and that there 
are three adjustable potentiometers on the 
circuit board. Indeed, the 26-3029 control- 
ler (the second controller Tandy released) 
is one of the best Tandy ever made for the 
CoCo. Note, too, that most third-party disk 
controllers also work fine with most drives, 
though a few (such as the first controller 
J&M made) also have compatibility prob- 
lems with the CoCo 3. Also, any 3'/2-inch 
720K drive can be used with most CoCo 
disk controllers. In addition, 3'/5-inch 1 .44- 
megabytedrivescanbeused.butonlyinthe 
720K mode. 

Is the Hard Drive Busy? 

^fl^ / have a Tandon 252 10-megabyte 
^8^ hard drive that I am using with my 
CoCo 3. This drive does not have a "busy" 
light on it, and I'd like to know how to add 
one? 

Steven Taulborg (TAULBORG) 
Reynoldsburg, Ohio 

AMFM drives have one 34-pin edge 
connector and one 20-pin edge con- 
nector on them. Looking at the 34-pin edge 
connector, pins 25, 27, 29 and 31 are, re- 
spectively, the Drive Select 1. 2, 3 and 4 
lines going from the MFM controller board 
to the hard drive. Thus, it is likely that if you 
had an LED powered via a transistor or one 
or two CMOS inverter gates (to take the 
load off the select line), you could use one 
of those select lines (probably the Drive 1 
select line) as your "drive in use" LED. 
You'll have to play around a bit depending 
on whether the select line is active low or 
high (use a logic probe first to check this 
out). 



Martin H. Goodman, M.D., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi, Marty is the 
SIGop of THE RAINBOW'S CoCo SIG. His 
non-computer passions include running, 
mountaineering and outdoor photography. 
Marty lives in San Pablo, California. 



Sundog Systems Discount Special 




Buy 2 or more CoCo 3 products and save 15% on each! 

Coupon must be mentioned at time of order to receive discount. 

Offer excludes The Contras. Expires April 30, 1 993. See prices 

and ordering information elsewhere in liiis issue. 

Sundog Systems 

P.O. Box 766 

Manassas,VA22lll 

703/330-8989 
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CoCo-C: A C Compiler 
for RS-DOS 



Even though Microware's C com- 
piler has been available to CoCo 
users for years, those who prefer 
the Disk-BASIC environment 
haven't had a reliable implemen- 
tation of C for some time. Yes, there have 
been several "small C" compilers available 
through BBSs, and even a few C interpret- 
ers. But a well-documented version of C 
has been needed for Disk BASIC for quite a 
while. 

CoCo-C gives the Disk BASIC user the 
ability to write C source code, then compile 
that code into binary programs that can be 
loaded from disk or tape and executed. 
CoCo-C isn't a complete implementation 
of C since it supports only character and 
integer data types and doesn't allow for 
complex data types. But CoCo-C does pro- 
vide most of the environment that experi- 
enced C programmers are used to seeing. 
CoCo-C is delivered on a flippy disk; the 
system for CoCo 3 users is on one side, and 
the programs for use with the CoCo 1 and 2 
are on the back. (A flippy disk has files on 
both sides, but you don't need a double- 
sided drive — you turn the disk over.) The 
primary differences between the CoCo-C 
systems for the CoCo 3 and the CoCo 1/2 
appear to be limited to the text editor and 
the program-initialization routines. Other- 
wise the files appear to be the same. 

The Software 

CoCo-C includes all the tools you need 
to write your own programs in C. Included 



for CoCo 3 users is Bob van der Poel's 
Ultra Editor, which is a joy to use. This is 
a powerful text editor, optimized for pro- 
gram editing, that includes such features as 
dual text buffers that can be opened at the 
same time, as well as commands to transfer 
data between them. Although it isn't a com- 
plete word processor. Ultra Editor comes 
close. Full-screen editing in 40 or 80 col- 
umns and simple two-key commands allow 
you to quickly prepare your C source code 
for the compiler. Ultra Editor also supports 
macros, allowing you to customize the ed- 
iting environment and perform repetitive 
functions easily. (This editor can also be 
used for other languages, such as assembly 
language and basic.) 

The 32-column line editor supplied for 
CoCo 1/2 users is much less complex, yet it 
provides enough features to edit any pro- 
gram. Still, if you need more-powerful ed- 
iting capabilities, consider using a word 
processor that supports straight ASCII files, 
such as Telewriter. 

Also included with CoCo-C is an assem- 
bler that compiles to standard Motorola- 
syntax assembler code. By eliminating 
CoCo-specific functions, you can use CoCo- 
C on your Color Computer to develop 
ROMable code for just about any 6809- 
based system. 

Programs written using CoCo-C can be 
interfaced with programs in other languages 
(i.e., CoCo-C programs can be called from 
BASIC as subroutines). At the same time, a 
unique interface between CoCo-C and the 



The C Compiler for the CoCo has finally arrived. 



CoCo-C 



CoCo-C is a complete RSDOS based C development package for the Color Computer not 
requiring the OS-9 Operating System. CoCo-C consists of five main programs: a Text 
Editor, a C Compiler, an Assembler, and a Library Linker which are all controlled by the 
CoCo-C Command Coordinator. 

Text Editor 



A full featured screen oriented line editor for the CoCo3 developed by Bob van der 
Poel. Powerful editing and cursor commands with auto-indent and user defined 
macros make this a great editor for writing C or assembly language programs. A less 
sophisticated version for the CoCo 2 is also available. 

C Compiler 

The CoCo-C Compiler is a full featured K&R style integer compiler specifically 
designed for RSDOS based systems. It has assembly language output, position 
independent code and can output ROM-able code if desired. Added features allow you 
to mix C. assembly language and BASIC commands wilhin your program! 

Assembler 



This symbolic assembler is capable ot assembling files as large as available disk 
space. It supports a Motorola style syntax and outputs standard binary files ready for 
LOADM and EXEC. Options include list file output and generation of symbol table file. 

Library/Linker 



The Library Linker is a utility which links the CoCo-C's 90+ function library with your 
compiled binary tile, creating a stand alone executable ML file. 

Command Coordinator 



The Command Coordinator is CoCo-C's main program. Its user friendly menu driven 
screen smoothly switches back and forth between the Editor, Compiler, Assembler and 
Linker, 



The CoCo-C Compiler package includes BOTH CoCo 2 and CoCo 3 versions 
of ALL the programs listed above plus MOREI Compatible w/B&B RGBDOS 

Never before has there been an offer like this for the Color Computer ! 

Requires 64K COCO 2 or 128K COCO 3 Send check or money order to: 

introductory otter Infinitum Technology 

Only $59.95 P.O. Box 356 

™ ~.L J- „. Saddle River, N.J. 07458 

Plus $4.00 shipping & handling 914-356-7688 



BASIC ROMs in the com- 
puter gives yourC programs 
all of the power of BASIC; the 
bascmd function allows you to 
make calls to the routines in the 
BASIC ROMs. Using this approach, 
anything your version of BASIC can 
do (including graphics), your C pro- 
gram can also do. This feature 
could also be used to work with 
floating point numbers. 

CoCo-C features some special 
functions that make it easier to work in 
a CoCo environment. These include com- 
mands for switching a CoCo 3 between the 
CoCo 3 and CoCo 1/2 modes, testing 
whether the program is running on a CoCo 
3 or an earlier Color Computer, setting up 
for the CoCo 3's RGB and composite- 
video modes, and setting the computer for 
the high-speed mode. 

Some special functions that are nor- 
mally used by the C S TA RT library routine are 
documented and can be used to set up 
buffers in memory and to change the error- 
checking characteristics. CoCo-C also pro- 
vides a mechanism that allows you to insert 
or even i n c 1 u d e assembler routines in your 
C program, giving you even more intimate 
control of your system. 

As I implied before, CoCo-C is a well- 
documented implementation of C for Disk 
BASIC. No, it isn't C++, and it doesn't have 
a huge library of extras. But CoCo-C gives 
you most of the standard C functions. Be- 
sides, with bas cmd, the BASIC ROMs them- 
selves become a fairly extensive library of 
routines. 

Finally, all of the expected expressions 
and operators are supported, including the 
shift operators. Most of the normal program 
control statements, such as if /then/else, 
while/do and for work as they should. 
Some of the usual conversion functions do 
not work as expected or are not supported 
because of the limited types of data that can 
be handled. 

The Documentation 

I was impressed with the quality of the 
manual supplied with CoCo-C. Since writ- 
ing users manuals is my job, I have some 
idea what's involved in producing a good, 
understandable manual; CoCo-C's manual 
appears to meet all of the criteria. You arc 
taken through a logical progression from 
entering the source code for a program to 
compiling, assembling, linking and finally 
executing that program. Each function is 
presented using the typical C syntax state- 
ment, then a complete description explains 
how the function is used, what type of data 
it requires and what type of data it returns. 
An example of the function when used in a 
C language program is given to help clarify 
its use. In addition, program examples in 
the back of the book provide step-by-step 
and line-by-line explanations showing you 
how to enter a program and what you need 
to do to compile it. 

Also included in the manual are com- 
plete technical specifications to help you 
understand how you can connect programs 
written in CoCo-C to other types of pro- 
grains as well as how CoCo-C puts your 
program together. This section explains 
how the compiler works with C-language 
source code to construct the finished ex- 
ecutable program. 




Although i 
CoCo - C ' s | 
manual is 
not specifi- 
cally de- 
signed to 
teach C-lan- 
guage pro- 
gramming, it 
gives the average 
CoCo user more 
than enough informa- 
tion to really get going. 
Still, if you are not familiar with C and need 
more information, the manual provides a 
list of reference books that should help. 

The Real World 

One of the most important things about 
writing programs in C is the portability of a 
program from one computer to another. 
Most C-language text-based programs 
should be fairly easy to convert for C.oCo- 
C. The primary concern is that Disk BASIC'S 
disk structure is somewhat limited in that it 
does nor provide a hierarchical directory 
structure and leaves only one side of the 
disk available for storage. Allowing for this 
when converting programs written for other 
systems requires considerable changes. 
Since C was original ly developed for Unix, 
an operating system that allows complex 
disk structure and lots of space, this could 
be an important consideration when trying 
to convert another C program to run under 
Disk BASIC. On the other hand, working 
with files is made much easier through the 
application of some unique input/output 
functions that work well with the CoCo. 

As long as these and the data-typing 
limitations are kept in mind, there should 
not be any trouble writing and converting 
useful C language programs for your CoCo. 
And remember, C is a powerful language 
that encourages the programmer to expand 
it's capabilities. By writing your own func- 
tions to work with other data types, or 
perhaps using the Disk BASIC interface, 
there should be no limit to the possibilities 
CoCo-C offers for writing complex and 
useful software. The structured approach to 
programming for which C is so famous 
gives the programmer the tools he needs to 
develop programs for the CoCo that aren't 
limited by the BASIC ROM routines and are 
much easier to work with than programs 
written in assembly language. (Infinitum 
Technology, P.O. Box 356, Saddle River, 
NJ. 07458, (914)356-7688; introductory 
offer: $59.95 plus $4 SIH.) 

— Bill Budenholzer 
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Net Worth from Page I 



To stop entering data, telling Financial 
Statement to finish printing your totals, 
select Option 8 from the main menu. 

Financial Statement is designed for use 
with the DMP-130 printer. The only con- 
trol code used. however, is 
C H R$ ( 2 7 ) ; CH R $ ( 2 ) , which appears in Line 
400. This code tells the DMP-130 (and 
most other Radio shack printers in the Tandy 



mode) to switch to condensed print. Change 
this code as necessary for your printer. 



Charles Kiedaisch is a retired tool-and- 
die designer who still does some indepen- 
dent work and uses his CoCo 3 to create 
master drawings. He enjoys building useful 
programs for the Color Computer. 
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The Listing: STATEMNT 




1 'FINANCIAL STATEMENT 


430 PRINT#-2." ":PRINT#-2, STRING 


2 'BY CHARLES KIEDAISCH 


JU33."*") 


3 'COPYRIGHT (C) 1993 


440 PRINT#-2.TAB( 55) "WEEKLY" ;TAB 


4 'BY FALSOFT. INC. 


(66)"M0NTHLY";TAB( 79) "YEARLY" ;TA 


5 'RAINBOW MAGAZINE 


B( 91) "WEEKLY" ;TA8( 102) "MONTHLY"; 


10 CLS: 'FINANCIAL STATEMENT- SPRE 


TAB( 115) "YEARLY" ;TAB( 129 )"FACE" 


AD SHEET 


450 PRINT#-2,"CATAGORY";TA8(20)" 


20 R-0 


DESCRIPTION" ;TAB( 55) "I NC0ME";TAB 


30 PRINT:PRINT:PRINT-MAKE SURE P 


( 67 )"INCOME";TAB( 79) "INCOME"; TAB 


RINTER IS ON LINE" 


(90)"EXPENSE";TAB( 102) "EXPENSE"; 


40 PRINT:PRINT"PRESS <ENTER> WHE 


TAB( 114) "EXPENSE" ;TAB( 128) "VALUE 


N READY" 


" 


50 INPUT E$ 


460 PRINT#-2,STRING$(133."-") 


60 GOTO 300 


470 GOTO 70 


70 CLS:PRINT:PRINT"INPUT DATA" 


480 CLS:PRINT@233."**PRINTING**" 


80 PRINT 


:PRINT#-2.USING"/W/ % % % 


90 PRINT"SELECT INPUT" 




100 PRINT" 1) WEEKLY INCOME" 


% $$###.## **####.## $$### 


110 PRINT" 2) MONTHLY INCOME" 


##.## $$###. #(r $$####.## $ 


120 PRINT" 3) YEARLY INCOME" 


$#### . ## $ UHHHHl . ##" ; R ; $ ; A$ ; P 


130 PRINT" 4) WEEKLY EXPENSE" 


;M;Y;E:F;G;A 


140 PRINT" 5) MONTHLY EXPENSE" 


490 PP=PP+P:MM=MM+M:YY=YY+Y:EE=E 


150 PRINT" 6) YEARLY EXPENSE" 


E+E : FF=F F+F : GG=GG+G : AA-AA+A 


160 PRINT" 7) ASSETS" 


500 GOTO 70 


170 PRINT" 8) END INPUT" 


510 CLS: PRINT@233. "'PRINTING**" 


180 A0$=INKEY$:IP AC$=""THEN180E 


:PRINT#-2.TAB(5D" - 


LSE190 





190 AO=VAL(AO$):0N A0 GOTO 200.2 





10.220.240,250,260.280,510 


— " 


200 GOSUB640:PRINT"WEEKLY INCOME 


520 PRINT#-2,TAB(34)"T0TAL";:PRI 


" : : INPUT P:M=P*52/12 : Y=P*52:G0T 


NT#-2. USING" tUHHHHt. 


230 


M $$####.## tiiHHHHHl JHl SUHHl 


210 GOSUB640:PR1NT"MONTHLY INCOM 


###.## %%'HHHHHUHl $»######.## $ 


E "::INPUT M:Y=M*12: P=Y/52 :G0T0 


HHHHHHl . #" ; P P ; MM ; YY ; E E ; F F ; GG ; AA 


230 


530 PRINT#-2 


220 GOSUB640:PRINT"YEARLY INCOME 


540 PRINT#-2.TAB(27)"T0TAL INCOM 


": : INPUT Y:M=Y/12: P=Y/52: GOTO 2 


E"; :PRINT#-2, USING" $ 


30 


$«##.## $$#####.## $$####«.# 


230 0$=" INCOME": GOTO 480 


#";PP;MM;YY 


240 GOSUB 640:PRINT"WEEKLY EXPEN 


550 PRINT#-2,TAB(27)"T0TAL EXPEN 


SE ";:INPUT E: F=E*52/12:G=E*52:G 


SE"::PR!NT#-2, USING" $ 


CTO270 


tlHHHHt.lHt SUHHHHl.lHt MHHHHHtA 


250 GOSUB 640:PRINT"MONTHLY EXPE 


#";EE;FF;GG 


NSE ";:INPUT F:G=F*12: E=G/52:G0T 


560 TT-PP-EE:ZZ-MM-H:XX=YY-GG:W 


C 270 


W=XX+AA 


260 GOSUB 640: PRINT-YEARLY EXPEN 


570 PRINT#-2.TAB(49!" 


SE ";:INPUT G: F-G/12: E-G/52:G0TC 


•• 


270 


580 PRINT#-2.TAB(32)"3ALANCE";:P 


270 0$="EXPENSE":G0T0 480 


RINT#-2. USING" S$## 


280 GOSUB 640:PRINT"FACE VALUE " 


#.## $$#####.## $$######. ##":TT 


:: INPUT A 


;ZZ;XX 


290 Q$="ASSET":G0TO 480 


590 PRINT#-2.TAB(32)"ASSETS";:PR 


300 3EM OUTPUT TO PRINTER 


INT#-2, USING" 


310 PRINT:LINEINPUT"DATE? ":DATE 


$$######.##" :AA 


$ 


600 PRINT# 2,TAB(75)" - " 


320 CLS:PRINT@233, ""PRINTING**" 


610 PRINT#-2,TAB(13)"ESTIMATED Y 


330 TT=0 


EAR END NET WORTH"; : PRINT#-2,USI 


340 MM=0 


NG" 


350 YY-0 


$ i1HHHHHt.tr; WW 


360 EE=0 


620 PRINI#-2.SIR1NG$(133,"*"):PR 


370 FF=0 


INT#-2." " 


380 GG=0 


630 CLS:PRINT@230. "PROGRAM ENDED 


390 AA=0 


":END 


400 f>RINT#-2,CHRt(27);CrlR$(20) 


640 R=R+1:P=0:M=0:Y=0:E=0:F=0:G= 


410 i>RINT#-2.TAB(56>"-*FINANCIAL 


0:A-0 


STATFMENT**" 


650 PRINT"DFSCRTPTION "::LINEINP 


420 =RINT#-2.TAB(3)"DATE: ":DA 


UT A$: RETURN 


TE$ 




- 
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Yes! They're still available! 




The 



RAINBOW 

Back 
Issues 



BACK ISSUES STILL AVAILABLE 

Have you explored the wealth of informa- 
tion in our past issues? From our very first, 
four-page issue to many with more than 300 
pages of material, it's all just for CoCo users 
— a great way to expand your library! 

A WORLD OF INFO 
AT A BARGAIN PRICE 

All back issues sell for the single issue 
cover price. In addition, there is a $3.50 
charge for the first issue, plus 50 cents for 
each additional issue for postage and handling 
if sent by United Parcel Service. There is a $5 
charge for the first issue, plus a $ 1 charge for 
each additional issue on orders sent by 
U.S. Mail. UPS will not deliver to a post office 
box or to another country. 



MOST ISSUES STILL AVAILABLE 

Available issues through June 1982 are 
provided on while paper in a reprint form. 
All others are in regular magazine form. 
VISA, MasterCard and American Express 
accepted. Kentucky residents please add 6 
percent sales tax; Canadian residents, 7 
percent GST. In order to hold down costs, we 
do not bill, and no C.O.D. orders are 
accepted. 

Due to heavy demand, we suggest you 
order the back issues you want now while 
supplies last. 

To order, review and fill out the form 
below and mail it with your payment. 

For greater convenience, order through 
the Rainbow Magazine Services area of our 
Delphi CoCo SIG. 



RAINBOW INDEX 

A complete index for, July 1 981 through June 1 984, is printed in 
the July 1 984 issue. Separate copies are available for $2.50 plus 50E 
handling. Indexes for subsequent years are published annually in the 
July issues of the rainbow. 

TOTAL 



KY RESIDENTS ADD 6% . 

CANADIAN RESIDENTS ADD 7% GST . 

U.S. MAIL CHARGE . 

SHIPPING & HANDLING . 

U.P.S. CHARGE 

TOTAL AMOUNT 

ENCLOSED 



Article Reprints 

In instances where a given issue is now out ol print and not available for 
purchase, we do provide photocopies of specific articles. The cost for this 
service is $1 .50 plus 50 cents S/H per aticle. This service is provided only in 
fhe case of out-of-stock issues. 

Name 

Address 

City 



State 



Zip 



□ Payment Enclosed, orCharge to my: _i VISA J MC _iAE 
Card # 



Expiration Date 
Signature 



Phone i 



TO ORDER BY PHONE (credit card orders only) call (800) 847- 
0309, 9 a.m. lo 5 p.m. EST. All other inquiries cail (502) 228-4492. 
send to: THE RAINBOW, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059 

Please send me the following back issues: 



JUN 33 

AUG 83 
SEP 83 
OCT 83 
MAR 84 
APR 84 
MAY 84 
JUN84 
JUL 84 



AUG 84 
SEP 84 
OCT 84 
NOV 84 
DEC 84 
JAN 85 
FEB 85 
MAR 85 
APR 85 
MAY 85 
JUN85 
JUL 05 



VOLUME 2 

Primers 

VOLUME 3 
Games 

cdu::;iticyi 

Graphics 



Annversary 

VOLUME 4 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beg:nners 

Utilities 

Business 

Simulations 

Pnnter 

Music 

Anniversary 

VOLUME 5 

Games 

Education 



$3.95 u 
$3.95 'J 
$3.95 a 
$3.95 LI 
$3.95 □ 



$3.95 J 
$3.95 J 
$3.95 J 
$3.95 J 



OCT 85 
NOV 85 
DEC 85 
.AN 86 
FEB 86 
MAR 86 
APR 86 
MAY 86 
JUN 86 
JUL 86 



AUG 86 
SEP 86 
OC~86 
NOV 86 
DEC 86 
JAN 87 
FEB 87 
MAR 87 
APR 87 
MA*87 
JUN 87 
JUL 87 



AUG 87 
SEP 87 
OCT 87 
NOV 87 
DEC 87 
JAN 88 



VOLUME 6 
Games 
Education 
Graphics 
Data Comm. 
Holiday 
Beginners 
Uti ities 



Anniversary 

VOLUME 7 

Games 
Education 
Graphics 
Data Comm. 
Holiday 



S3 95 J 
$3.95 J 
S3.95 3 
$3.95 a 
S3.95 J 
$3.95 3 
S3.95 J 
$3.95 7J 
$3.95 3 
$3.95 a 



$3.95 3 
$3.95 J 
$3.95 a 
$3.95 J 
$3.95 J 
$3.95 '3 
$3.95 a 
$3,95 3 
$3.95 Q 
$3.95 -l 
$3.95 Q 
$3.95 Q 



S3 95 'J 
$3.95 □ 
$3.95 Q 
$3,95 
$3.95 Q 
$3.95 J 



TLB 88 
MAR 88 
APR 88 
MAY 88 
JUN88 
JUL 88 



AUG 86 
SEP 88 
OCT 88 
NOV 86 
OEC88 
JAN 89 
FEB 89 
MAR 89 
APR 89 
MAY 89 
JUN 89 
JUL 89 



Allfi 89 
SEP 89 
OCT 89 
NOV 89 
CEC8S 
JAN 90 
FEB 90 
MAR 90 
APR 90 
MAY 90 
J.JN 90 
JJL90 



AUC90 
SEP 90 
OCT9C 
NOV 90 
DEC9C 
JAN 01 
FEB 91 
MAR 91 
APR 91 
MAY 91 
JUN 91 
JUL 91 



AUG 91 
SEP 91 
OCT 91 
NOV 91 
DEC 91 
JAN 92 
FEB 92 
MAR 92 
APR 92 
MAY 92 
JUN 92 
JUL 92 



AUG 92 
SEP 92 
OCT 92 
NOV 9? 
DEC 92 
JAN 93 
FEB 93 
MAR 93 
APR 93 



Ann. 



'Mry 



VOLUME 8 

Games 

Education 

Graphics 

Data Comm. 

Holiday 

Beginners 

Home He p 

Hardware 

Business 

■Vinter 

Summer Fun 

Anniversary 

VOLUME 9 
beyond BASIC, 
Education 
Grapn.cs 
Data Comm. 
Holiday 

Home Hep 

Hardware 

B.,siress 

Printer 

Summer Fun 

Anniversary 

VOLUME 10 

0S-9 

Education 

Graph cs 

Data Comm. 

Holiaay 

3eginrers 

Home Hep 

Hardware 

Music 

Pnnter 

Summer Fun 

Anniversary 

VOLUME 11 

Graphics 

Education 

OS-9 

Data Comm. 

Holiday 

Unities 

Homo He p 

Haidware 

Music 

Printer 

Programming 

Anniversary 

VOLUME 12 

Graphics 

Education 

OS-9 

Data Comm. 

Holiday 

Utilities 

Home Help 

Hardware 



$3.95 3 
S.3.95 J 
$3.95 D 
$3.95 J 
$3.95 J 
$3.95 J 



$3.95 J 
$3.95 □ 
$3.95 3 
$3.95 a 
$3.95 a 
$3.95 a 
$3.95 a 
$3.95 □ 
$3.95 U 
53.95 U 
$3.95 a 
53.95 a 



53.95 O 
$3.95 a 
$3.95 LI 
$3.95 □ 
53.95 □ 
53.95 Q 
$3.95 D 
53.95 U 
$3.95 Q 
S3.95 U 
$3.95 a 
53.95 a 



$3.95 Q 
$3.95 a 
53.95 □ 
53.95 a 
$3.95 a 
53 95 a 
$3.95 a 
$3.95 3 
$3.95 3 
$3.95 U 
$3.95 B 
$3.95 a 



$3.9b a 
$3.95 a 
$3.95 a 
$3.95 a 
$3.95 a 

$3.95 a 

$3.95 a 

$3.95 a 
$3.95 a 
$3.95 3 
$3.95 3 
$3.95 3 



$3.95 3 
$3.95 a 
$3.95 3 
$3 95 a 
$3.95 a 
$3.95 3 
S3.95 3 
S3.95 3 
$395 a 
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Save Money Too! 

Subscribe to these convenient services and receive each months programs in a ready-to- 
run form. No more long tedious hours wasted typing! No more red eyes and sore lingers! All 
you do is load and run, using the current issue of THE RAINBOW as documentation. 

OS-9 programs are available too! One side of the RAINBOW ON DISK is formatted for the 
OS-9 operating system (OS-9 programs cannot be put on tape) so you can get all the great 
programs in the magazine. 

A one-year subscription to THE RAINBOW and RAINBOW ON TAPE is only $91 in the U.S., 
$108 in Canada, $153 foreign surface rate and $188 foreign airmail. 

A one-year subscription to THE RAINBOW and RAINBOW ON DISK is only $1 1 5 in the U.S., 
$1 38 m Canada, $1 83 foreign surface rate and $21 8 foreign airmail. U.S. currency only.Back 
issues of both RAINBOW ON TAPE and RAINBOW ON DISK are also available! (see our back 
issue ad in this issue) 

RAINBOW ON TAPE back issues are available beginning with the April 1 982 issue. A single 
copy of RAINBOW ON TAPE is $10 within the U.S., $12 in all other countries. The annual 
subscription for RAINBOW ON TAPE is $80 within the U.S.; $90 in Canada; and $105 for all 
other countries. U.S. currency only. 

RAINBOW ON DISK back issues are available beginning with the October 1986 issue. A 
single copy of RAINBOW ON DISK is S1 2 within the U.S., $14 in Canada, $1 6 in all other count- 
ries.The annual subscription for RAINBOW ON DISK is $99 within the U.S.; $1 15 in Canada; 
and $1 30 for all other countries. U.S. currency only. 



Yes! Sign me up for a joint 1-year subscription (12 issues) to: 

J THE RAINBOW 
and Rainbow on Tape 

J New 

Name 

Address 

City 

State 



3 THE RAINBOW 
and Rainbow on Disk 

■J Renewal (attach labels) 



.Zip. 



3 My check in the amount of is enclosed. 

Charge to: □ VISA □ MasterCard □ American Express 

Account Number 

Expiration Date 



.Signature 



For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other inquiries 

call (502) 228-4492. 

* Payment must accompany order; we do not bill. U.S. currency only, please. 

Kentucky residents add 6% sales tax; Canadian residents, 7% GST. Please allow 

6 to 8 weeks for delivery of first copies. All subscriptions begin with the current 

issue. 

Please note : While group purchases of RAINBOW ON TAPE and RAINBOW ON DISK 

are permitted (and multiple subscriptions are even discounted if purchased in one order 

from a club), no license to make copies is conveyed or implied. Unauthorized copying 

of any copyright product is strictly illegal. 



Feature Program 



Learn to be Quik 
on the Keyboard 



by George and Ellen Aftamonow 



Quik, a cute game for the 
CoCo 3, is not only a lot of 
fun, it helps you learn a 
little about the DRAW com- 
mand used for Color Com- 
puter graphics. To get started, enter the 
complete listing and save it to tape or disk 
(before running it). Then enter RUN. 

Once the game is started, you'll see eight 
arrows on the screen — one arrow pointing 
in each of the eight directions for which 
DRAW subcommands support direct move- 
ment (see Figure 1 ). One of these arrows 
should be flashing. 

The object of Quik is to quickly press the 
key that corresponds to the direction of the 
flashing arrow. As soon as you do. another 
arrow starts flashing. Thecomputer chooses 
the arrows randomly, so if you press the 
correct key and the arrow continues flash- 
ing, press that key again. This process con- 



tinues for a specific length of time (which 
you select after running the program but 
before starting the game). When the time is 
up, the number of correct responses you 
made appears on the screen and you are 
given the option to play again. 

Quik is a lot of fun to play, and the game 
is educational in a somewhat unique way. 
We hope you enjoy it, too. 



George and Ellen Aftamonow, two self- 
taught programmers, believe computer us- 
ers need another number cruncher as badly 
as a pig needs a wallet. So they like to sit 
down and enjoy the challenge of writing 
entertainment software. They can be con- 
tactedat46HoweStreet.Milford,CT06460, 
(203) 878-3602. Please include an SASE 
when requesting a reply. 



cocoa; 



The Listing: QUIK 

1 'QUIK 

2 'BY GEORGE & ELLEN AFTAMONOW 

3 'COPYRIGHT (C) 1993 

4 'FALS0FT. INC. 

5 'RAINBOW MAGAZINE 

10 PALETTE0,0:PALETTE5,63:HSCREE 
N2:HCLS0:HCOLOR5,0 
15 HPRINT(10.10)."(C)MP OR (R)GB 
?" 

20 I$=INKEY$:IFI$-""THEN20 
30 1FI$="C"THEN40ELSEIFI$="R"THE 
N50ELSE20 

40 PALETTECMP:PALETTE0.0:PALETTE 
1 ,17:PALETTE2,39:PAI FTTE3.57:PAL 
ETTE4,53:PALETTE5.63:PALETTE6.41 
: PALETTE7 , 57 : PALETTE8 . 44 : PALETTE 
12,39:PALETTE14,51:GOTO70 
50 PALETTERGB:PALETTE0,0:PALETTE 
1.17:PALETTE2.38:PALETTE3,29:»AL 
ETTE4,55:PALETTE5.63:PALETTE6.45 
:PALETTE7. 57 :PALE1"TE8, 44: PALETTE 
12,38:PALETTE13,42:PALETTE14.15* 
0=BLK 1=GRN 2=RED 3=BLU 4=YLW 5 
-WHT 6=PUR 

70 DATA6 , 6 . 1 , 17 , "H" , 160 , 6 , 2 , 38 , " 
U", 315. 6, 3. 29. "E". 315, 90, 4. 55, "R 
". 315. 174. 5. 63, "F". 160. 174. 6. 45. 
"D", 6. 174. 7.57. "G". 6. 90. 8.44. "L" 

74 '*X & Y PAINT CO-ORDINATES. 
PALETTE NO. 8, COLOR. DIRECTION 

75 F0RZ=1T08:READX(Z),Y(Z).P(Z). 
C(Z).C$(Z):NEXT 

79 '*MAIN SCREEN 

80 HCLS0:HSCREEN2:HCOLOR12 

90 IILINE(60.50){270.130),PSCT,B 
100 HDRAWBM2 .4R34G10F4G12H6G10U 
30":HDRAW"BM160.4F22L14D6L16U6L1 
4E22":HDRAW"BM3"-8.4D32H10G6H12E6 
H10R32":HDRAW"BM318.90G22U14L6U1 
6R6U14F22":HDRAW"BM2,90E22D14R6D 
16L6D14H22" 

105 HDRAWBM2.178U32F10E6F12G6F1 
0L32":HDRAW"BM160.178H22R16U6R12 
D6R16G22":HDRAWBM318,178L32E10H 
6E12F6E10D32" 

106 F0RZ-1T08:HPAINT(X(Z).Y(Z)). 
P(Z>.12:NEXT 

110 HDRAWBM100.80L6NU16H2U12E2R 
6F2D12G2NF2BR14 L6NU16H2U14R2BR8 
D14G2BR8 L2U16R2D16BR14 L6NU16H2 
U12E2R6F2BD12G2BR8 L2U16R2D8NE8N 
F8D8" 

115 HDRAW8M190.80L6NU16L2NLU16N 
LR8F2D12G28R8 NU16L2U16R8F2D432L 
6F8BR6 NU16L2U14E2R6F2D6NL8D8BR6 

H2U14R2D16E6NU4F6U16" 
120 HPRINT(20.12)."BY":HPRINT(9. 
14). "GEORGE & ELLEN AFTAMONOW" 
130 FORQ-1T03:PLAY"T25505BADBADB 
AD":NEXTQ 

140 HCOLOR0:HLINE(62.52)-(268.12 
81.PSET.BF 

150 HCOLOR5:HPR:NT(10.10)."NEED 
INSTRUCTIONS Y/N?" 



160 I$=INKEY$:IFI$=""THEN160 
200 HCOLGR0:HPRINT(10.10)."NEED 
INSTRUCTIONS Y/N?": I FI$="N" THEN 
214 

202 HC0LCR3:HPRINT(9.8)."THERE A 
RE EIGHT ARROWS. ":HPRINT(9. 9>." 
EACH IS POINTING IN THE":HPRINT 
(9. 10). "DIRECTION 1HAI COINCIDES 
":HPRINT(9.11),"WITH THE COMPUTE 
R - S DRAW" :HPRINT(9. 12), "COMMAND. 
":HPRINT(13, 14), "PRESS ANY KEY" 

203 I$-INKEY$:IFI$-"" THEN203 

204 HCOLCR0:HLINE(62.52)-(268.12 
8),PSET.BF 

205 HDRAWBM164.90C3NL12NH12NU12 
NE12NR12MF12ND12G12":HPRINT(15,1 
1),"L":HPRINT(25.11),"R":HPRINT( 
20.8),"U":HPRINT(20,14)."D" 

206 IICOLOR2:HPRINT(17.9)."H":HPR 
INT(23.9),"E":HPRINT(23.13)."F": 
HPRINT(17,13),"G" 

207 I$-INKEY$:IFI$-"" THEN207 

208 HCOLOR0:HLINE(110,60)-(210,1 
20),PSET.BF 

210 HC0L0R4:HPR1NT(9.8)."AN ARRO 
W WILL RAND0MLY":HPRINT(9.9)."FL 
ICKER. THE OBJECT IS":HPRINT(9,1 
0)."TO PRESS THE KEY THAT":HPRI 
NT(9. 11). "REPRESENTS THE ARROWS 
":HPRINT(9.12)."DIRECTI0N.":HPRI 
NT(13. 14). "PRESS ANY KEY" 

212 I$=INKEY$:IFI$="" THEN212 

213 HCOLOR0:HLINE(62,52)-(266.12 
6).PSET.BF 

214 HC0L0R4:HPRINT(15.8)."CH00SE 
1-3":HPRINT(14.10),"1) SHORT G 

AME":HPRINT(14.11)."2) MED. GAM 
E":HPRINT(14.12)."3) LONG GAME" 

220 I$=INKEY$:IFI$-""THEN220 

221 "*G-LENGTH OF GAME 

222 IFI$="1"THENG-600ELSE IFII-" 
2"THENG=1200ELSEIFI$="3"THENG=18 
00ELSE222 

225 P$="T250O2L200GEA":PLAYP$ 
230 HCOLOR0:HLINE(106.62)-(220.1 
04).PSET.BF 
240 T-0:SC-0 

249 '"CHOOSE RND PALETTE 

250 C=RND(8) 

299 '*FLICKER PALETTE:T=TIME 

300 T-T+1:I$-INKEY$:IFT-G THEN34 
0ELSEIFH-"" THENPALETTEC.0:PALE 
TTEC,C(C):GOTO300 

310 IFI$OC$(C) THEN300 

320 SC=SC+1:GOTO250 

340 PLAY"I200L200EAGAEAGA":HCOLO 

R2:HPRINT(15,8),"Y0U SCORED" :HPR 

INT(11.10).STR$(SC)+" IN"+STR$(G 

/20)+" SECONDS." 

350 HPRINT(14.14)."PLAY AGAIN?" 

360 I$-INKEY$:IFI$="" THEN360 

370 IFI$="Y" THFN213 Fl SFTFT $-"N 

" THENCLS:RGB:END:ELSE360 
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Feature Program 



One Address or Many? 



by Charles Kiedaisch 

^& ^k U hether or not they write 

» flft U letters to friends, 

Iflf people spend at least a little 

wM Wm lime each month addressing 

«■ W envelopes. Not everyone, 

however, gets high marks for penmanship. 

And when greeting cards are in order — 

especially during the holidays — writer's 

cramp becomes a problem (usually for those 

who don't write often). The two programs 

presented here can be a real help during 

these times. 

The program shown in Listing 1. Ad- 
dress, prints your return address and the 
recipient's address on just about any enve- 
lope. Before you run the program, make 
sure you enter your name and address in 
lines 160 through 180. When Address is 
executed, you are first asked to enter the 
recipient's name and address. The program 
then prints your return address and asks 
what size envelope you are using. Press 1, 
2, 3 or 4 accordingly, and the program 
proceeds to print the remainder of the enve- 
lope. 



Address is designed to accommodate 
four different envelope sizes: standard, long, 
odd-sized and small. Actually what hap- 
pens is that the printhead is moved (using 
PRINT # 2, TAB (T)) to a different position 
based on the selected envelope size. The tab 
values are set up in lines 2X0, 300, 320 and 
330. Feel free lo change these as you sec fit. 

Address Two (Listing 2) works much 
like Address except that it allows you to 
store data for the addresses to which you 
frequently send mail. In addition, you can 
elect to print all stored addresses or only a 
specific address, on the printer or to the 
screen only. You can also print a complete 
directory of all stored addresses. 

Before running the program, make sure 
the names and addresses you want are stored 
in the data lines at the end of the listing. Use 
the same format indicated when you enter 
your data, and make sure the last cai A 
statement starts with the word END. Also 
make sure you enter your return address in 
lines 620 through 640. The tab values for 



different-sized envelopes are in lines 980, 
1000, 1020 and 1030 should you want to 
change them. 

Some users may wonder why 1 wrote 
Address Two in such a fashion that it uses 
DATA statements instead of storing address 
information on disk. In the first place, using 
DATA statements makes the program easier 
to use with tape-based CoCo systems. Sec- 
ondly, it allows you to create several differ- 
ent versions of the program, using specific 
groups of addresses in each, much like 
separate mailing lists. This is handy when 
you send cards or letters to different groups 
of people on different occasions. And you 
can put the names and addresses of all your 
creditors (those who don't provide prc- 
addresscd envelopes, anyway) in one pro- 
gram listing. 



Both Address and Address Two are de- 
signed to work with the Tandy DMP- 1 33 in 
the Tandy mode. The control codes used 
and the lines in which they appear are 
shown in Figure 1. 

In an effort to help the postal service by 
printing clearly, we only help ourselves, 
increasing the chance that our mail will get 
where it's supposed to go. I believe you'll 
find Address and Address Two to be useful 
additions to your library. 



Charles Kiedaisch is a retired tool-and- 
die designer who still does some indepen- 
dent work and uses his CoCo 3 to create 
master drawings. He enjoys building useful 
programs for the Color Computer. 



Control Code 



CHR$(27):CHR$(14) 
CHR$(27);CHR$(15) 
CHR$(27);CHR$(20) 



Function 



start elongation 
end elongation 

condensed 



Address 

line numbcr(s) 

60, 370 

100,410 

160 



Address Two 
line number(s) 

440. 1070 
480, 1110 
620 



Figure 1: Address and Address Two Control Codes 



■,::,-:, 


) 


200 PRINT" 1) STANDARD E 


320 T=23:G0T0 340 






70 PRINT T $:PRINT#-2:PRINT#-2:PR 


NVELOPE" 


330 T=15:G0T0 340 


Listing 1: ADDRESS 


INT#-2:PR!NT#-2,TAB(T);T$ 


210 PRINT" 2) LONG ENVEL 


340 CLS:PRINT"ADJUST ENVELOPE IF 


80 PRINT G$:PRINT#-2.TAB(T):G$ 


OPE" 


NECESSARY" 




90 PRINT M$:PRINT#-2.TAB(T):M$ 


220 PRINT" 3) ODD SI7F F 


350 PRINT"PRESS (Y) "0 PRIN'" 


1 'ENVELOPE ADDRESS PRINTFR 


100 PRINT*-?, CHR$(?7):CHR$(15) 


NVEL0PES" 


360 PR$=INKEY$:IF PR$-""THEN 360 


2 'BY CHARLES KIEDAISCH 


110 PRIKT:PRINT"ANOTHER ADDRESS 


230 PRINT" 4) SMALL ENVE 


:IF PR$="Y"THEN 370 


3 "COPYRIGHT (C) 1993 


(Y/N)" 


LOPE" 


370 PRINT#-2.CHR$(27);CHR$C4) 


4 'BY FALSOFT. INC. 


120 N*=INKEY$ 


240 PRINT 


380 PRINT T$:PRINT//-2,TAB(T);T$ 


5 'RAINBOW MAGAZINE" 


130 IF K$=""THEN 120 


250 PRINT" SELECT (1.2,3 OR 


390 PRINT G$:PRINT#-2,TAB(T);G$ 


10 CLS:REM*ENVELOPE ADDRESS* 


140 IF M-"Y"THEN 10 


4)" 


400 PRINT 1$:PRINT#-2,TAB(T);M$ 


20 LINE1NPUT"NAMC ";T$ 


150 IF N$-"N"TIICN 430 


260 AN$=INKEY$:IF AN$=""THEh 260 


410 PRINT#-2,CHR$(27»;CHR$(15) 


30 LINEINPUT"NUMBER AND STREET 


160 PRIf<T#-2,CHR$(27);CHR$(20>;" 


270 ON VAL(AN$)GOT0 280,300,320. 


420 GOTO 110 


:G$ 


JOE SOMEBODY" 


330 


430 CLS 


40 LINEINPUfCITY AND ZIP CODE 


170 PRINT#-2, "11306 ANY ST" 


280 T=21 


440 PRINT"PROGRAM ENDED" 


;M$ 


180 PRINT#-2."S0ME PLACE IL 6044 


290 GOTO 60 




50 GOTO 160 


8" 


300 T=42 




60 CLS:PRINT#-2.CHR$(27);CHR$I 


14 190 CLS 


310 GOTO 60 





Listing 2: ADDRESS2 

1 'FILER/ADDRESS PRINTER 

2 'BY CHARLES KIEDAISCH 

3 'COPYRIGHT (C) 1993 

4 'BY TALSOFT, INC. 

5 'RAINBOW MAGAZINE 

10 CLS:REM*NAME AND ADDRESS LIST 

/ENVELOPE ADDRESSING* 

20 S-l 

30 M-1000 

40 PRINT" *************** 



50 PRINT" 

60 PRINT- 
AY ONLY" 
70 PRINT" 
IRECT0RY" 
80 PRINT" 
90 PRINT" 



1) LINE PRINTER 

2) SCREEN DISPL 

3) PRINT NAME D 

4) END PROGRAM" 



100 PRINT"SELECT(1,2.3 OR 4)" 

110 AN$=INKEY$:IF AN$=""THEN 110 

120 ON VAL(AN$)G0T0 130,140,660, 

560 

130 REST0RE:L$="G":PRINT:GOT0 15 



140 RESTORE:L$-"P":PRINT 

150 PRINT" DO YOU WANT ALL N 

AMES ( ¥ /N)" 

160 X$=INKEY$ 

170 IF X$=""THEN 160 

180 IF X$-"Y"THEN 210 

190 RESTORE:PRINT:PRINT"ENTER TH 

E NAME TO SEARCH FOR" 

200 INPUT S$ 

210 REM**PROCESSING AREA** 

220 PRINT 

230 PRINT 

240 FOR 1=1 TO M 

250 READ B$ 



260 IF B$="END"THEN 10 

270 READ T$.G$,M$ 

280 S-0 

290 IF B$OS$THEN 310 

300 S=l 

310 IF X$-"Y"THEN 330 

320 IF SOI THEN 550 

330 CLS:PRINT T$ 

340 PRINT G$ 

350 PRINT M$ 

360 IT L$-"P"TIICN 490 

370 PRINT:PR1NT"SHALL I PRINT (Y 

/N)" 

380 P$=INKEY$ 

390 IF P$-""THEN380 

400 IF P$-"Y"THEN 420 

410 IF P$="N"THEN 490 

420 GOSUB 620 

430 GOSUB 890 

440 PRINT#-2.CHR$(27):CHR$(14) 

450 PRINT#-2:PRINT#-2:PRINT#-2:P 

RINT#-2,TAB(T);Tt 

460 PRINT#-2,TAB(T):G$ 

470 PRINT#-2,TAB(T);M$ 

480 PRINT#-2,CHR$(27);CHR$(15) 

490 PRINT:PRINT"AN0THER ADDRESS 

(Y/N)" 

500 N$=INKEY$ 

510 IF N$=""THEN 500 

520 IF N$="Y"THEN 540 

530 IF N$-"N"THEN 10 

540 CLS:IF X$-"N"IHEN 190 

550 NEXT I 

560 REM**** TERM PT**** 

570 PRINT 

580 PRINT"INPUT <RUN> TO RESTART 

590 PRINT 

600 END 

610 L$="P":G0T0 140 

620 PRINT#-2,CHR$(27):CHR$!20):" 

JOE SOMEBODY" 



630 PRINT#-2. "11306 ANY ST" 

640 PRINT#-2,"S0ME PLACE IL 6000 

0" 

650 RETURN 

660 RFM**PR1NT NAMF DIRECTORY** 

670 CLS:PRINT"PRESS <BREAK> TO S 

TOP" 

680 PRINT"INPUT <C0NT> TO CONTIN 

UE" 

690 PRINT 

700 RESTORE: PRINT"D0 YOU WANT A 

PRINTOUT (Y/N)" 

710 H$=INKEV$ 

720 IF H$=""THEN 710 

730 IF H$-"Y"THEN 740 

/40 FOR 1-1 TO M 

750 READ B$ 

760 IF B$="END"THEN 10 

770 READ T$,G$,M$ 

780 S-0 

790 IF B$OS$THEN810 

800 S=l 

810 PRINT 

820 PRINT B$;") ";T$ 

830 IF H$="N"THEN 860 

840 PRINT#-2.B$:") ";T$ 

850 NEXT I 

860 FOR D-l TO 500 

870 NEXT D 

880 GOTO 850 

890 CLS 

900 PRIN I" 1) STANDARD E 

NVELOPE" 

910 PRINT" 2) LONG ENVEL 

OPE" 

920 PRINT" 3) ODD SIZE E 

NVELOPES" 

930 PRINT" 4) SMALL ENVE 

LOPE" 

940 PRINT 

950 PRINT" SELECT (1,2.3 OR 

4)" 



960 AN$=1NKEY$:IF AN$=""THEN 960 

970 ON VAL(AN$)G0T0 980.1000.102 

0,1030 

980 T=21 

990 GOTO 1010 

1000 T=40 

1010 RETURN 

1020 T=23:GOT0 '.040 

1030 T=15:G0T0 1040 

1040 CLS:PRINT"ADJUST ENVELOPE I 

F NECESSARY" 

1050 PRINT"PRESS (Y) TO PRINT" 

1060 PR$-INKEY$:IF PR$-""THEN 10 

60: IF PR$="Y"THEN 1070 

1070 PRINT#-2.CHR$(27);CHR$(14) 

1080 PRINI 1$:PR1NT#-2.TAB(T);T$ 

1090 PRINT G$:PRINT#-2.TAB(T);G$ 

1100 PRINT M$:PRINT#-2,TAB(T);M$ 

1110 PRINT#-2.CHR$(27):CHR$(15) 

1120 GOTO 490 

1130 REM**DATA FOLLOWS* 

1140 DATA l.LAST NAME. 00000 NOPL 

ACE. HOME 00000 

1150 DATA 2, MR BILL SMITH. 2345 N 

ORTH ST. TRENTON NJ 87654 

1160 DATA 3. MRS CATHY DOE. 3456 W 

EST AVE, MIAMI TL 76543 

1170 DATA 4. DENNY DIMWIT. 4567 EA 

ST ROAD, CHICAGO IL 65432 

1180 DATA 5. JOE BLOW, 567 AVENUE 

B.SALEM OR 54321 

1190 DATA 6.MAR V SMITH. 678 AVENU 

E C.PORTLAND OR 54322 

1200 DATA 7, JOHN W.890 AVENUE D. 

SALEM OR 54321 

1210 DATA 8. BOB BOOB. 980 AVENUE 

F WALLA WA 76598 

1220 DATA 9. HARRY HOOD. 934 SOUTH 

ROAD, GARY IN 68907 
1230 DATA 10. MR AL JONES, 1234 SO 
UTH ST. NEW YORK NY 98765 
1240 DATA END 
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Database from Page 1 

doesn't matter whether you enter lower- or 
uppercase characters — all keywords are 
automatically stored in uppercase. The pro- 
gram allows up to a total of 1 5 keywords by 
which you can categorize your programs 
and files. If, during the course of operation. 

If the filename you 
enter for a record 
already exists in the 
database, DBOS9 
will not store that 
record. The program 
searches the data- 
base before any | 
records are written 
to ensure that there 
are no s. 



you delete all database records associated 
with a specific keyword, that keyword is 
automatically removed from the list. 

After you select an existing keyword (or 
create a new one) for the new record, you 
are asked to enter the OS-9 filename for the 
file or program for which you are recording 
information. DB0S9 accepts filenames up 
to 24 characters in length. Again, all 
filenames are automatically switched to all 
uppercase characters. 

The next prompt allows you to enter up 
to three text lines of up to 49 characters 
each. These lines can be used to describe 
the program or file, or to remind you of 



preliminary operating instructions for that 
program. 

Finally you are asked for the disk iden- 
tifier. This is a special place for whatever 
identifying names you use for the disks in 
your library. After this, you are given the 
option of storing the record in the database 
or returning to the main menu without stor- 
ing the information. 

It is important to note that if the filename 
you enter for a record already exists in the 
database, DB0S9 will not store that record. 
The program searches the database before 
any records are written to ensure that there 
are no duplicates. 

Searching for Records 

To search DB0S9's os9 database file, 
press 1 at the main menu. A submenu ap- 
pears with the following options: 1) Key- 
word Search, 2) Name Search, 3) First 
Letter Search, 4) List Names and 5) Main 
Menu. The function performed by each of 
these entries is fairly obvious when you are 
running the program, so we'll take only a 
brief look at them here: 

Option 1 — To search for records based 
on the selected keywords, press 1 . After the 
keyword box is displayed in the upper-left 
corner of the screen, select the numnber for 
the keyword on which you want to search. 
DB0S9 finds the first record categorized 
under the selected keyword. Subsequent 
records are displayed as explained below. 

Option 2 — To call up the record for a 
specific file or program, press 2 at the 
Search menu. When prompted, enter the 
exact name of the program or file in ques- 
tion. Since all filenames are converted to 
uppercase, it doesn't matter whether you 

Database continued on Page 12. 
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Icon Basic09 

The next programming language for OS-9! 

Icon Basic09 is a graphical user interface (GUI) to Basic09, which 
will make programming easier than ever! Icon Basic09 takes an 
innovative approach by using graphic representations, or icons, to 
represent statements and keywords for writing Basic09 programs and 
procedures. Instead of constantly typing while writing a program, the 
user can simply point & click to choose the desired statement! 

Icon Basic09 can also be very useful in studying procedures and 
programs written by others to learn how they operate. The package 
conlains a full set of icons. ..or, you may edit or create icons using the 
ncluded icon editor. Icon BasicOS requires a CoCo-3 with ai least 256k, 
mouse or joystick, and OS-9 Iv 2. afr *%#% 

Dual hi-res joystick adapter (Rs/coiorwarei $40 
Hi & Lo-res joystick adapter $27 

HAWKsoft keyboard extension cable $25 

Domination ("Risk"-like wargame!) $18 

MyDOS full-featured DOS extension $15 




1L 



awksoft 

PO Box 7112 * 

Elgin, IL 60121-7112 
(708) 742-3084 eves & ends 



US and CDN S&H always included. Terms: MO, check, or COD. 



OS-9 LeveS 



Listing 1: os9top.c 

^Include <std1o.h> 
^include <stdlib.h> 
^include <string.h> 
^include <ctype.h> 

struct db9 { 
char key[15]; 
char name[25] : 
char descr[3][60]; 

char disk[15]; 
) os9; 

struct tempo! 
char key[15]; 
char name[25] ; 
char descr[3][60]; 

char disk[15]; 
Itemp; 

pflinitO; 

FILE *fp.*kp; 

char database[]="/DD/BASE9/os9": 

int count. recurse: 

long t; 

char keywords[15][15]; 

raa i n ( ) 
( 

char ch-0.ch2; 
int x.init-0; 

#asm 

info "copywrite P.Scherer 1992" 

#endasm 



/♦declare global structures*/' 



/♦declare global variables*/ 



/*start of program*/ 



/*set buffers to 0*/ 

tabase if non-existent*/ 



setbuf(stdin.0): 
setbuf(stdout,0): 

/♦create 
if((fp-fopen(database."r+"))— NULLH 

if((fp-fopen(database."w+">)— NULL) 

exit(l); 
fwritelSinit.sizeof init.l.fp); 

slrcpy(os9. name. "??") : /*initialize database file*/ 

fwrite(Sos9,sizeof (struct db9).l.fp): 
} 

/♦create keyword. dat*/ 
if ((kp-fopen("/dd/base9/keyword.dat"."r+")>— NULLH 

if((kp«fopen("/dd/base9/keyword.dat"."w+">)— NULL) 

exit(l): 
for(x-0;x<15:x++){ /*initialize keyword. dat*/ 

strcpy(keywords[x] ."??") : 
fwrite( keywords [x] ,l5,l.kp); I 
fclose(kp):} 
OWSet(l,I,0.0.80.24.0.2); 



djf 



/♦create main menu*/ 



if(ch!-51){ 

OWSetC. 1.12.6. 60, 13. 0.4); 
OWSet(l,l,10,7,60,l3.0.1>; 
0WSet(l.l.ll,8.58,11.3.2>; 
CurXYU.25,1); 
putsCMAlN MENU"): 
putsi"\n 1) Search"): 
puts(" 2) Enter New Record"): 
puts!" 3) Backup Database"); 
puts(" 4) Exit"):} 



dol /*force a selection from 1 to 4*/ 

CurXY(l,0,9): 
De'Line(l); 
CurXY(l,14.9); 

prin-fC'SELECT A NUMBER: "); 
ch=getchar-;): 
1 while(ch<49| |ch>52); 

switch(ch) { /*call appropriate function*/ 

case TiOWEndU); 
OWEnd(l); 
OWEnd(l); 
os9Search( ) : 
treak; 
case - 2':0WEnd(l): 
OWEnd(l): 
OWEnd(l); 
os9Enter(); 
break; 
case '3' :CurXYn.Q.9): 
ErLine(l); 
fclose(fp) : 
printfC Put Disk In /d0 And Press <B> Or Any Key To Quit: "): 
ch2-getchar() ; 
if(ch2=='8'||ch2= - b')l 
CurXY(l,0,9); 
ErLine(l); 

systeirC'del /d0/os9.bak") ; 
systeirC'copy /dd/base9/os9 Zd0/os9.bak") ; 
systeirC'del /d0/keyword.bak") ; 

systeirC'copy /dd/base9/keyword.dat /dfl/keyword.bak") ; } 
f p-fopen(database."r+") ; 
break; 
default: OWEnd(l): 
OWEnd(l); 
OWEnd(l): 
OWEnd(l); 
] 
} while(Ch!-52>; 
fclose(fp); 
} 
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/'reference global structures*/ 
/•and variables*/ 



Listing 2: os9searcn.c 

//include <stdio.h> 
include <stdlib.h> 
//include <string.h> 
//include <ctype.h> 

extern struct db9{ 
char key[153: 
char ndme[25] ; 
char descr[3][60]; 
char disk[15]; 
)os9: 

extern struct tempo! 
char key[15]: 
char name[?B]; 
char descri3][60]: 
char disk[15]: 
}temp; 

extern int count, recurse; 
extern FILE *fp; 

os9Search(){ 



register int x; 
char ch.ch2; 
int y.j.z: 
char str[15]; 

OWSetd. 1.10.4,60. 13.0.4): /*create main search menu*/ 

OWSetd. 1.14. 5. 52. 11.0.1): 

OWSetd. 1.18. 6. 44, 9. 0.2); 

CurXY(1.13.1): 

printf("0S9 SEARCH MENU"): 

printf("\n 1) Keyword Search"): 

printf("\n 2) Name Search"); 

printf("\n 3) First Letter Search"); 

printf("\n 4) List Names"); 

printf ("\n 5) Main Menu\n"); 

do{ 

do) /*force a selection from 1 to 5*/ 

CurXY(1.1.7): 

DeUined): 

CurXYd.10.7): 

printf ("SELECT A NUMBER: "); 

ch-getchar( ) ; 
)while(ch<48| |ch>54); 

recurse-0: /*recurse variable used to keep track*/ 

/*of mutual recursion*/ 

switch(ch) { /*selection #1 calls keyword function directly*/ 

case'l':j-3: /*variable <j> controls keyword!) function*/ 

keyword! j); /*response in all selections*/ 

break: 
case -2': OWSetd, 1.20. 10, 40. 5.0,1); 



printf ("\n Enter Name To Search or <C/R> To Ouit\n"): 
printf! "\n : "); 

y-readln(0,str,14) ; /*read name entry*/ 

str[y-l]=0; 

if(*str— 0){ /*check for a <C/R>*/ 

OWLnd(l); 
break;) 
j-4; 
for!x-0;str[x];x++) /'convert to upper case*/ 

str[x]-toupper(str[x] ); 
rewind(fp); /*reset file pointer*/ 

f readdcount , sizeof count, l.fp): /*read number of files*/ 
y-0: 

for!x-0:x<count:x++){ /*search for name match*/ 

z=x: 

freadl&os9. sizeof (struct db9).l.fp); 
if ( ! strcmp(os9.name,str)){ /*if a match is found*/ 

dot /*set up display window*/ 

if(x<z) 

x++; 
if(!y)C 

OWEndd); 

OWSetd. 1.2. 2, 76. 16. 0.3); 
OWSetd. 1.3. 3. 74. 14. 0.4); 
OWSetd. 1.4, 4. 72. 12. 0.2); 
y++;) 

x-display(x.j); /*call display!) and pass*/ 
)while!z>x);)} /*variable x & j. X is*/ 

/*used to end search after*/ 
/*file is displayed*/ 
if (y){ 

OWEndd); 
OWEndd); 
OWEndd);} 
ifUyH /*1f y is then there is no match*/ 

Clear(l); 
CurXY(1.0.1); 

printf ("There Are No %s Records", str) ; 
printf ("\nPress Any Key: "); 
ch-getchar! ) ; 
OWEndd);) 
break: 
case '3' : OWSetd. 1.20. 10. 50.3.0. 1) : 

printf("\n Enter Letter To Search or <C/R> To Quit: "): 
ch-getchar(): 

if(ch!- - \n'){ /*test for a <C/R>*/ 

J-5: 

ch-toupper(ch) ; /*convert to upper case*/ 

y-0: 

rewind(fp); /'reset file pointer and read count*/ 

freaddcount. sizeof count. l.fp); 

for(x-0;x<count;x++)( /*slart of letter search*/ 

z-x; 

fread(&os9. sizeof! struct db9).l.fp); 
if(os9.name[0]— ch){ 

Program listing continued 




P.O. Box 733 Maple Valley, WA 98038 
U.S. ORDER DESK: (800) 237-2409 
INT'L & TECHNICAL: (206) 432-1814 

Boost your CoCo with these fine Burke & Burke products: 

THEXDER.OS9 ■■ NEW FOR OS9. Use your TANDY*™ $29.95 

Thexder cartridge under OS9. By Alan DeKok. 

The 6309 Book ■■ 6309 programming book by Chris Burke. $24.95 

Includes XSM assembler, disassembler, and DEBUG patches 
for OS9 Level 2. 

PowerBoost - 2 MHz enhanced HD63B09E processor wl OS9 $29.95 

kernel and I/O patches (10% - 50% speed improvement). Note: 
soldering required for installation. 

WORLD CLASS CHESS* - Use Cyrus Chess cartridge w/L2 0S9. $29.95 

FILE SYSTEM REPACK LI - Faster 0S9 disk defragmenter $29.95 

FILE RECOVERY SYSTEM - Helps recover files from 0S9disks. $24.95 

R. S. ». *-- Disk BASIC for Level 2 (BASIC ROM required). $39.95 

EZGEN 1.10- EVEN FASTER! Handy & powerful 0S9 bootfde editor $19.95 

WILD & MV - Use wildcards with OS9 commands: move, files $19.95 

PERTASCI1 - Challenging OS9 game to make words from a list of $1 9. 95 

random letters. Play against the computer, multi-user, or BBS. 

7.CL0CK - Continuous time / date display on Level 2 screen $9.95 

COCO XT - Use PC MFM or RLL hard drives with CoCo! OS9 S/W $69.95 
included (add $30 for COCO Xl-RTC version with real-time clock; add 
$20 for XT-ROM hard disk auto-boot ROM). 

DAGGORPATCH -Transfers TANDY™ Dungeons of Daggorath $9.95 

cartridge to DISK BASIC. Adds disk I/O, screen dump, repeal. 

WA RESIDENTS ADD 8.2% SALES TAX. MasterCard & VTSA acccplcd. U.S. COD's add 

$3.75. Min. U.S. shipping $4.00. Min. to Canada $5.00. Please allow 2 weeks for delivery. 

Overnight or 2nd- day available for in-stock ilems. Software upgrades S5.00 each w/reccipt. 

including U.S. shipping. 

(.'all or write for a free calalog of more exciting Color Computer products! 



Tfrie 2m Annual "Last" 

infill 




Saturday and Sunday, May 1st £ M, 1995 
AttheHOUPAYINNftWN 

(A ttolidome Recreation Center) 

$45 W. Kh/sr Road (A eJty block from 1-90 «• IL-J1S1 

^AMsMmin\rteArMt*i\wkmfoeletfUxa^oifa\atem) 

Ovemffc room rate *5100 (PIw \0% tax) 
Call for ressrvatlons: 1 (7W 695-5000 and be wre to ask for the "WowW«"or 

"CoCoFttff rate 

See New Products from your Favorite "CoCo' Vendors and 
Have an outrageously Cood Time with aS your "CoCo" Friends! 

Admission: $10.00 at the door. 2-day pass only; sorry, no 1-day passes 

Advance ticket sales: $ 8.00 * SASE or $ 8.00 + $.50 posBge & handling 

Contact: : George Schneeweiss, Treasurer 
Glenside Color Computer Club 
RR#2 Box 67 
Forrest, 1L 61741-9629 

For further information, general or exhibitor, contact- 



Tony Podraza, President, GCCCI 
708-428-3576, VOICE 
708-428-0436, BBS 



Carl Boll, Vice President, GCCCI 
312-735-6087, VOICE 
312-735-3355, BBS 
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/*if <y> 1s then set up window for display!). 
After one call to display!), y will be incremented 
and the window call will not repeat.*/ 



if(x<z) 

x++: 

if(!y)f 

OWEnd(l): 

OWSet(1.1.2.2.76.16.0.3): 
OMSetU. 1.3. 3.74, 14,0.4): 
OWSet(1.1.4.4,72.12.0,2): 
y++:) 

x-display(x. j) ; /'pass variable x & j*/ 
}while(z>x);}) /*to displayO. X is*/ 

/*used to end search if*/ 
/♦required*/ 



/*check to see if a match*/ 
/*was found*/ 



if(y)( 

if (x — countH 
Clear(l); 
CurXY(1.10.6): 

printf ("There Are No More %c Entries. ". ch) : 
printf (" Press Any Key: "): 
ch2-getchar():) 
OWEnd(l); 
OWEnd(l):) 
else{ /'send message if no match*/ 

Clear(l): 
printf("\n There Are No %c Entries-Press Any Key: ",ch); 
ch2-getchar(>;}) 
OWEnd(l); 
break; 
case'4':0MSet(l. 1.10.2, 32. 18. 0.1); /*set up file list window*/ 
OWSet(l.l,11.3.30.16.0.2): 

rewind(fp): /*reset file pointer and read count*/ 

fread(Scount. sizeof count. l.fp): 
y-0: 
do{ 

for(x-0:x<6s&y<count:x++)( /*6 file display loop*/ 
f read (&os9. sizeof (struct db9) .l.fp) : 
i f(strcmp(os9.name. "??")) 

pr1ntf("\n *s\n",os9.name); 
else x-; 
y++;} 
prinlf("\n Press Any Key\n"); 
printf(" Or <C/R> To Quit: "); 
ch2-getchar() ; 
if(ch2— - \n - ) /*end search if <C/R> is entered*/ 

y-count: 
Clear(l): 
)while(y<count): 
OWEnd(l): 
OWEndU); 
break; 
default:OWEnd(l); 
OWEnd(l): 
OWEndd); 
re-urn ; ) 
)wh1le(ch!--5 - ); 
) 



/*close search menu and return to main*/ 



Database from Page 10 

use lower- or uppercase characters when 
entering the filename. 

Option 3 — If you are not sure of the 
exact spelling of a file or program's name, 
this option allows you to enter only the first 
character of the name. DBOS9 then finds 
the first record in the database for which the 
filename starts with the entered character. 
Subsequent records are displayed as ex- 
plained below. 

Option 4 — Use this option to see all 
filenames stored in DBOS9 database 
records. 

Option 5 — This option returns you to 
the main DBOS9 menu. 

Whenever a DBOS9 record is displayed 
(by options 1, 2 or 3 above), an action list 
appears below it on the screen. Options 
available on this list allow you to change the 
displayed record, delete the record, con- 
tinue to the next record (not available for 
recordsdisplayed using Option 2), write the 
record to disk, or return to the Search menu . 
If you choose to change the record, you 
must write it to disk before exiting the 
screen. Otherwise, any changes made are 
not recorded in the database file. 

For Safety's Sake 

The third option on DBOS9's main menu 
is Backup. Selecting this option allows you 
to create a backup set of the os9 and 
keyword.dat files. The default backup is 
performed the from /dd device to the /dO 
device. If /dO is the /dd device on your 
system, the backup files are written to the 
same disk. (These default device selections 
appear in the function os9top . c. Listing 1 . 
You can change them and recompile the 



source code.) 

The backup files are stored using the 
names os9.bak and keyword. bak. If you 
later need to use these files with DBOS9, 
you must change their names to os9 and 
keyword . dat, respectively, and place them 
in the /dd/BASE9 directory. 

DBOS9 is written in C and is made up of 
five functions: os9top.c, os9search.c, 
os9enter.c,os9ch_del .candkeyword.c,. 
os9top . c contains the main menu and the 
database-initialization operation. It also 
handles the data-file backup. os9sea rch . c 
contains all of the search functions and uses 
keyword . c. os9enter . c handles the entry 
of new data and also uses keyword. c. 
os9ch_del contains the change and delete 
functions, which are called by di spl ay( ). 
keyword . c handles all keyword manipula- 
tion and contains the function displayO. 
which displays file data on the screen. 

The program uses what is called mutual 
recursion during some of the operational 
sequences. For instance the logic might 
procedeasfollows:os9search()callskey- 
word( ) which calls di spl a.y( ) which calls 
change* ) which calls keyword( ). In such a 
scenario, keyword* ) is used twice, but it is 
stored in memory only once. 



Phil Scherer is a mechanical-design 
engineer for automatic packaging and as- 
sembly systems. In addition to working with 
OS-9 on the CoCo, his hobbies include 
snorkeling and horticulture. He can be con- 
tacted at 6191 NW 34 Hwy., Ft. Lauder- 
dale, FL 33309. Please include an SASE 
when requesting a reply. 



Listing 3: os9ch_del .c 

^include <stdio.h> 

^include <stdlib.h> 

//include <string.h> 

//include <ctype.h> 



extern 


struct db9( 
char key[15]; 
char name[25] ; 
char descr[3][60] 
char disk[15]; 
)os9: 


extern 


struct tempo! 
char key [16]; 
char name[25] ; 
char descr[3][60] 
char disk[15]; 
Hemp; 


extern 
extern 
extern 


int count; 
FILE *fp; 
long t; 


change(z) 
1nt z;{ 
char ch; 
int x.y; 



/'reference global variables*/ 



do{ /'force valid selection with loop*/ 

CurXY<1.0.10); 
ErLineU): 

printfC Select Number To CHANGE or <C/R> To Quit: "); 
ch-getchar() ; 
1f(ch— '\n'H 

Ch-'5'; 
break;) 

)while(ch<49| |ch>52); 

CurXY<1.0.10); 

ErLlne(l); 

swi tch(ch){ 
case'l':x-l; 

keyword(x) ; 

z-; 
break; 
case'2':printf(" Enter New NAME or <C/R> To Quit: "): 

strcpydemp. name. os9. name) ; ,'*store current name in os9.temp*/ 
y-readln(0,os9.name,25) ; 
os9.name[y-l]-0: 
if ( !*os9.name) 

strcpy(os9. name, temp. name) ; /*if quit, restore os9.name*/ 
else! 

f or (y-0 :os9. namely] ;y++) 

os9. name[y]-toupper(os9. namely]) ;) /*convert to*/ 
z-; /*upper case*/ 

break: 
case'3':Clear(l); 

CurXYU.25.2): /'new description entries*/ 

printfC'DESCRIPTION"): 
printf("\n Xs".os9.descr[0]) ; 
printf("\n Xs".os9.descr[l]); 
pr1ntf("\n %s",os9.descr[2]) ; 
/'store os9.descr in temp.descr*/ 

strcpy(temp.descr[0],os9.descr[0]) ; 

printf ("\n\n Enter New Description or <C/R> To Quit"); 

printf("\n 1: "); 

y-readln(0,os9.descr[0],60); 

os9.descr[0][y-l]-0; 

1f(!*os9.descr[0]){ 

strcpy(os9.descr[0].tenp.descr[0]); /*if quit, restore*/ 

z-; /*os9.descr*/ 

break;} 
prlntfl" 2: "); 
y-readl n (0,os9. desert 1], 60): 
os9.descr[l][y-l]-0: 
printf! - 3: "): 
y-readl n(0.os9.descr[2] .60); 
os9.descr[2][y-l]-0; 
z-; 

break; 
case'4': printf {" Enter New Disk Identifier: "); 

strcpyltemp. disk, os9. disk); /*store os9.disk in temp. disk*/ 

y-readl n(0.os9. disk. 15); 

os9.d1sk[y-l]-0; 

if(!*os9.disk) 

strcpy(os9.di sk. temp. disk) : /*if quit, restore os9.disk*/ 
z - ; 
break: 

) 



del ete(z) 

int z;l 
char ch; 

CurXY(1.0.10); 

ErLine(l): 

printfC'Delete This File?? Y or <N>: '•): 

ch-getchar( ); 

if(ch— 'Y'Mch— 'y'M 

z-20000; /*if file is deleted, return 20000*/ 

strcpy(os9. name."??") ; 

/•locate file pointer for the seek function and write deleted file*/ 



t-ftell(fp): 

fseekdp.t sizeof (struct db9),0); 
fwrite(8,os9, sizeof (struct db9).l.fp); 
Clear(l): 
CurXY(l,10.S): 

printf("F1le Deleted-Press Any Key: "); 
ch-getchar( ! ;) 
el se 
2-; 
reUrr z;] 
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/'reference global variables*/ 



Listing 4: os9enter .c 

#include <std1o.h> 
♦include <stdl1b.h> 
♦include <string.h> 
♦include <ctype.h> 

extern struct db9{ 
char key[15]; 
char nane[25]: 
char descr[3][60 
char disk[15T: 
}os9: 

extern struct tempo{ 
char key[15]: 
char nane[25J; 
char descr[3][60 
char d1sk[l5]; 
Itemp: 

extern int count. recurs 

extern FILE *fp; 

os9Enter( ){ 

regi ster int y; 
char ch: 
int x.j-1; 



/*j is passed through keywordO to allow an abort 
selection to occur in keywordO. If It returns greater 
than 1 then the rest of code is skipped.*/ 

recurse-0; 
j-keyword(j) ; 



if(j~l){ 



/♦create enter window*/ 



OHSet CI, 1.10. 5, 60.7.8.1); 

OWSetCl.1.14.6.52.5.0.2): 
CurXYU.10.1): 

printf ("ENTER FILE NAME or <C/R> To Quit"); 

CurXY(1.0.3>: 

printf (":"); 

y-readln(0.os9.name,25); 

os9.name[y-l]-0: 

1f(!*os9.name)( /*test for C/R*/ 

OWEnd(l): 

OWEndll); 

return;) 
for(y-0;os9.name[y];y++) /'convert to upper case*/ 

os9.name[y]-toupper(os9.name[y]) : 
x-0: 

rewind(fp) : 

fread(&count.sizeof count. l.fp): 
for(y-0:y<count:y++){ 



/*read file count*/ 



fread(&temp.sizeof (struct tempo) , l.fp) ; /*read each file*/ 

/*record the location of first deleted file. 

allows overwriting unused space in file storage area.*/ 

if(!x){ 

if(!strcmp( temp. name. "??")) 
x-y+1 : } 
if( !strcinp(os9. name. temp. name)){ /*watch for existing file*/ 

Clear(l); 

printf("\n The file Already Exists-Press Any Key; "): 

ch-getchar( ) ; 

OWEnd(l); 

OWEnd(l); 

return;}) 
OWEnd(l); 
OWEnd(l): 
OWSet(1.1.5.5.70.11.0.1): /*create file description window*/ 
OWSet(1.1.9.6.62.9.0.2): 
CurXYd.10.1); 

orintf("ENTER FILE DESCRIPTION - THREE LINES\n"); 
printf("\n:"); 

y-readln(0,os9.descr[0] ,60) : /*file description entries*/ 

os9.descr[0][y-l]-0; 
printf("\n:"); 

y-readln(0.os9.descr[l].60): 
os9.descr[l][y-l]-0; 
printf ("Xn:") ; 

y-readln(0.os9.dcscr[2],60); 
os9.descr[2][y-l]-0; 
OWEnd(l): 
OWEnd(l): 

OHSet (1, 1.10.6.60.6.0.1): 
OWSet(1.1.14.6,52.3,0.2); 
printf("\n Enter Disk Identifier: "); 
y-readln(0.os9.disk,15); 
os9.disk[y-l]-0; 
OWEnd(l): 
OWEnd(l); 

OWSetU.1.2.2.76.16.0.3); 
OWSet(l.l,3.3.74.14.0.4); 
OWSet(I.1.4.4.72.12.0.2); 
display) j); 
CurXYU.8.9): 

printfC'Do You Want To Enter This File? Y or <N>: "); 
ch-getchar( ); 
iflch— "y ' | |ch — "Y'){ 
rewind(fp): 

f read(&count.sizeof count. l.fp): /*read file count*/ 
if(!x>{ 

x-count: 

count++:) 
else 

x _ : 
rewind(fp) : 



/*create disk i.d. window*/ 



/'create display window and*/ 
/'display file*/ 



Program listing continued 




Unsurpassed Entertainment Software For Your Color Computer 



CHECK OUT OUR NEWEST TITLES 




Graf Express 2.0 

The response to this graphics and music programming 
environment has been astounding. Now with GrafExpress 2.0 
the CoCo community can create lightning (ost arcode games, 
graphic applications, and windowing multimedia demos 
using up to 2S6 colors! Its graphics toolkit blows awoy the 
competition (up to 300 times faster than 8ASIC). Features 
include tent-graphics mixing, sprites, collision checking, lost 
window scrolling, multi-page animation, and easy interfacing 
with BASIC and assembly language. Included along with the 
50 page monuol ore support programs worth the purchase 
price alone: on Introductory Demo, Picture Editor, Waveform 
Editor, and o 256-color Art utility. Req. 128K min. $34.95 



The Conlras 

This 512K paramilitary combat arcade game features a 2 
player cooperative mode, incredible graphics, super-smooth 
animation and scrolling, sizzling sound effects, and an 
outstanding background music score. The Contros proves that 
the CoCo can match or surpass - ony homo game system. 
Blow awoy the enemy through multiple levels end power up 
with ever more destructive weapons. Hie most ambitious 
game ever created for the CoCo 3! $34.95 

Photon 

Photon is a proven winner. The critics agree that it is one of 
the most challenging, original, and oddictive gomes ever 
mode for the CoCo. This arcade game combines action ond 
strategy with 16-color. ultra-smooth animation and loads of 
real-time music and sound effects Over 60 devious levels of 
excitement. Requires 128K Coco 3. $34.95 

"It is the most addicting game I've played on the CoCo 
since Tetris. . . . Photon has the mark of o classic game. . . . 
My recommendation: Addict yourself." 
- Lauren Willoughby, Rainbow magazine. 



OTHER EXCEPTIONAL PRODUCTS 

War Monger An incredible war game simulator and construction set. $29.95 
Crystal City Ultra-fast space arcade action. Hardware scrolling with 128K. $34.95 
Quest for Thelda 500 screens of fast fantasy action. $34.95 Hint book $4.95 
Zenix The incredibly popular, lightning fast, 128K stellar arcade game. $29.95 
Sinistaar 3 disks packed with graphics and eerie sound effects. 512K req. $34.95 
Kyum-Gai: To be Ninja Best-selling 128K martial arts arcade classic. $29.95 

(Also available in 0S-9 version) 
SoundTrax 128K/512K polyphonic digital sound sequencing system. $34.95 
SoundTrax Instrument Disk Set 6 disk sides of new instruments/effects $29.95 
Warrior King $29.95 Hall of the King I, 2, or 3 $14.95 ea. 

Paladin's Legacy $12.95 Dragon Blade $9.95 

White Fire of Eternity $9.95 Champion $9.95 
Kung-Fu Dude $12.95 In Quest of the Star Lord $34.95 Hints $3.95 




P.O. Box 766 

Manassas, VA 2211 1 

703/330-8989 



Vise, MasterCard, check, money order, and COD 
(USA only. J... ,■.,.; ,:..., P tr.: All foreign orders must 
be sent in US currency money orders. Include $2.50 
for shipping in USA ond Canada, $5 00 foreign. 
$3.00 extra (or COD orders PA residents add 6% 
sale^ tax Dealer inquries welcome. Aulhcs, we are 
looking for new software! 
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,'*write count with new number then seek to the end of the last 
file and write new file.*/ 

fwri tel&count. sizeof count. 1 ,fp) ; 


fseek(fp,;dong) sizeof (struct db9))*x.l); 
fwri te(&os9. sizeof (struct db9).l.fp);> 
OWEnd(l): 
OWEnd(l): 
OWEndd):! 
return;} 



Listing 5: keyword. c 


lwh1le(*num) ; 
' f(y>0i&y<(x+2) )( /'after selection read file count*/ 




rewind(fp) ; 


//include <stdio.h> 


f read (icount. sizeof count .1 .fp) ; 


//include <stdlib.h> 


w=0; 


//include <string.h> 


for(z-0;z<count;z++){ /*read each file*/ 


//include <ctype.h> 


f read Uos9. sizeof (struct db9).l.fp); 




t-ftell(fp): 


extern struct db9i /'reference global variables*/ 


u=z: 


char key[15]; 


if ( !strcnp;os9.key,keywords[y-l])) /*check for keyword match*/ 


char name[25]; 


if !strcmp(os9. name. "??")) { /*check for deleted file*/ 


char descr[3][60]; 


do! 


char diskClB]; 


z=u: 


}os9: 


if(w— 0)1 


extern int count, recurse: 


OWEnd(l); 


extern long t; 


OWEnd(l): 


extern FILE *fp,*kp; 


OWEndd); 


extern char keywords[l5][15] ; 


OWSetd, 1.2. 2, 76. 16. 0.3); 




OWSetd. 1.3. 3. 74. 14. 0.4); 


keyword! ji 


OWSetd. 1,4, 1.72. 12. 0.2>;l 


int j:< 


w++; /increment w to prevent window repeat*/ 




z-display(z. j) : 


register int y.x-0: 


if(z— 20030) { /*20000 returned means delete*/ 


char ch.num[4]; 


V-li 


int u.w.z.v-0: 


fseek(fp.t,0); 

7™l|- ) 


if( !recurse){ 


z— u . J 

Cleard); 


if((kp-fopen("/dd/base9/keyword.dat"."r+"))=.=NULL) 


}while(u>z): }} 


ex1t(l): 


i f (z==count ){ /"send message after all files*/ 


recurse++;} 


Cleard); /*have been read*/ 


rewind(kp): /*read in keyword entries*/ 


CurXYd.12,5): 


for(y-0;y<15;y++)[ 


if(w~0){ 


fread(keywords[x].15,l,<p); 


v-1; 


if(keywords[x]t0]!-'?') 


pMntf ("There Are No %s Fi les\n" ,keywords[y-l]) :} 


x++;} 


el se 


if(j— 3| | j — 4 1 |j— 5) 


printfC There Are No More %% Entries. \n", key»ords[y-l)) ; 


if(!strcmp(keywords[0]. "??'•)){ /*check for keyword entries*/ 


CurXYU.12,6): 


OWSetd. 1,2, 2. 30. 3. 0.4): 


printfC" Press any Key: "); 


printf!"\n No Keywords-Press Any Key: "): 


ch=getchar();}}} 


ch-getchar; ) ; 


if (w<2&Sv— 1){ /*delete unused keyword*/ 


OWEnd(l): 


s t rcpy ( keyword s[y-l ]."??") ; 


return :) 


rewind(kp) ; 


if(x<15){ /*insert ?? in unused file positions*/ 


for(y-0;y<15;y++) 


for(y-x;y<15:y++) 


fwri te( keywords [y] ,15,1. kp) ; } 


strcpyt keywords [y] ,"??"): 


recurse-; 


y-0;l 


i f ( ! recurse) 


x-: 


fcl ose(kp) ; 


OWSetd. 1.3,0. 22. x-W. 0,4): /*make keyword window sized to*/ 


OWEndd); 


OWSetd. 1.4.1. 20. x+5. 3, 2); /*the number of keywords*/ 


OWEndd); 


printf("\n KEYWORDSVn"); 


OWEndd); 


if(keywords[0][0]!-'?'){ /'list, existing available keywords*/ 


return j: 


for(y-0;y<-x:y*-+) 




printfC\n %d) %s". (y+I) . keywords [y]) ;} 


} 


/*j — 1 is used by enter and change*/ 


display(z. j) 




int z; 


if(j — 1)1 


int j;{ 


if(x<14) 


char ch; 


printfC\n %d) New Keyword". ( y+1) ) ; 


long t; 


OWSetd. 1.23, 10. 48, 3,0.1): 


Cleard); 


printfC \n Pick a Number or <ENTER> to Quit: "): 


printfCXn l)Xs ",os9.key): 


fort : : ){ /*force a valid selection with loop*/ 


CurXYd.20.1): 


y-readln(0,num,3): 


printfC 2>%s\n".Ds9. name) : 


numry-11-0: 


P"intf("\n 3)"): 


i f (*num)( 


FColor(l,3); 


y=atoi (num) : 


p"intf("%s\n".os9.descr[0]); 


if(y<l| |y>(x+2)||y>15)< 


printfC «s\n".os9.descr[l]>; 


Clear(l): 


printfC «s\n".os9.descr[2]): 


p-intf("\n Invalid Number-Re-Enter or <C/R> to Quit: ");} 


FColor(1.0); 


el se { 


printfCXn 4)"); 


if(recurse>l| |y>0) 


FColor(1.3); 


break;}} 


printf("Xs".os9.d1sfc); 


el se { 


FColor(l,0); 


j— 15 : /*C/R message is carried back by j— 15*/ 


if(j!=H&j!-2){ /'test j for the correct response*/ 


break:} 


do{ /*force a valid selection with a loop*/ 


} 


CurXYU.0.10): 


1f(jl-15){ 


printfC <C>hange-<D>elete-"): 


if (y>084y<-(x+D) /*enter selection into new file*/ 


if(j!-4) 


strcpy(os9. key. keywords [y-1]) : 


printf("Co<N>tinue-"): 


else if(y — (x+2)){ /*enter new keyword if selected*/ 


printf("<W>rite or <C/R> to Quit: "); 


Clear(l): 


ch-getchar() ; 


printf("\n Enter New Keyword: "); 


ErLined); 


x++: 


if(ch— "C" 1 1 ch — 'c'){ 


y-readln(0,keywords[x] ,14) : 


z-change(z) ; 


keywords[x][y-l]=0; 


return z: } 


if(keywords[x][0]— 0){ 


if(ch= , D' | |ch— *d")l 


*num-0; 


z-delete(z); 


j-15; /*C/R is returned by j-15*/ 


return z;} 


st rcpy( key words [x] ,"??");} 


if(ch— 'W'||ch— 'w'H 


if(*num)( /*convert to upper case*/ 


t-ftell(fp): 


for(y-0:keywords[x][y] :y++) 


rewind(fp) ; 


keywords[x][y]-toupper( keywords [x][y]) : 


freadt&count. sizeof count. l.fp): 


strcpy(os9. key.keywords[x]) :}) /*reccrd new keyword*/ 


fseek(fp.((long) sizeof(struct db9))*z.l): 


rewind(kp): 


fwrite(&os9, sizeof (struct db9).l.fp>: 


fwri te(keywords, sizeof keywords. 1. kp) ; /*rewrite keyword. dat*/ 


fseek(fp.t.0): 


}} 


return z;} 




lf<(ch — "n" | |ch — 'N' )&&j — 4) /'disable n selection if j— 4*/ 


/*j— 3 is used by search functions*/ 


ch='x' : 




}wh11e(ch!-"\n , &&ch!-'n , &Sch!- , N , )i 


else if(j— 3){ 


if(ch~'\n') /*if C/R is entered return z>count*/ 


OWSetd. 1.23. 10. 48, 3. 0.1); 


z-countd; 


printf("\n Select Number To Search or <C/R> To Quit: ")-. 


return z; 


do{ /*force valid selection with loop*/ 


1 


y-readln(0,num,3) : 


else {if(j!-l){ 


num[y-l]-0; 


RetfQn(l); 


if(*num)l 


CurXYU.0.9): 


y=atoi (num): 


printfC Press Any Key To Continue: "); 


if(y<l||y>(x+l))( 


ReVOffd): 


Cleard): 


ch-getchar( ) ;}} 


printf("\nlnvalid Number-Re-Enter or <C/R> To Quit: ");) 


z-count-1; 


else *num-0; ) 


return z;i 


else y-0: 






/rb 
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In See Koinea, Iowa, lou of Hieroware Inc. 

"Hid Ioaa 4 Country CoCo" 1b »r»B«ntina *s 

national Color Coajmter Foot. 

ssLn.3E-c3n av— aaa-ttaa 1993 

Saturday VIP Breakfast 8s 30 AM 8SVP 7 days 
With Carl Boll/ VP Glenoids & Terry Siaons/ MlaCC 
Saturday Show March 27, 10:00 AM to 6:00 PM 
Saturday Social: in our lounge area 7:30 PM 
Sunday Show March 28, 10:00 AM to 3:00 PM 
The Place: The Travel Lodge Inn. 
Easy highway access at 1-35 & 80 interchange. Exit *124 
(University) 3 blks East. With a "limited number" of rooms 
reserved at Fest rates. $35.00 per room, up to 4 occupants 
These are limited, reserve your room early: 1-800-255-3050 

Airport shuttle provided! (rooms only) 

Our national reach out and central location should assure 
full attendance with an attractive and fun filled Fest! 

Come and visit at: The Travel Lodge Inn with attractively 

displayed booths and plenty of walking and talking room. 

Speakers, start with the well known James Jones of 

Microware. OS-9 User Group Founding Pres, Boisy Pitre. and 

Terry Simons, RSDOS. Ana others will fill an attractive 

seminar schedule. Join our evening informal round table 

chit-chat gathering, and meet other users. With your Room, 

Show floor, and Social at one location. With both heavy 

emphasis for the OS-9 enthusiast; and a good representation 

of RSDOS. This promises to be a well rounded Fest J 

A Color Computer Fest you don't want to aisa! 

Tickets: Til Mar 1 At door Middle America Fest 

One day $10.00 $12.00 Terry Simons/ Treas 

Two day $12.00 $15.00 1328 48th St. 

VIP Breakfast optional $7.00 Des Moines, IA 50311 

Check or M.O. Booth prices on request 
Terry Simons 515-279-2576 — James Jones 515-224-1444 

Get a 1 year UPGRADE National Diskaagasine" subscription, 

and MI&CC membership. $19.00 US $24.00 Canada 

see Jan Rainbow pg 9 $31.00 Frgn Air $3.00 sample UPGRADE 



TOD Software : Our Final Frontier! 




Our ten year mission has 
'. been to seek out new Coco 
; software and boldly provide 

■ the biggest and best variety 
! ofi Coco programs. Our 

mission is complete! Our 
subscription service has 

■ been stopped. This is your 

final chance to order! 
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*A11 issues contain 10 ready to run programs. 
*A11 original software includes documentation. 
*We send first class! Free shipping! 
* Personal checks welcome. 
*Write for a free catalog. 
*Programs arc for a Coco 1, 2, or 3. 
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70 GRAPHIC DISKS! 



Set#l 

Clipart 

Animals 

More 



Set #2 
Celebrities 
Cartoons 

More 



Set if 3 

R-Rated 

Women 

Adults Only 



Next Sets 4,5,6,7 
Each set has a variety of: 

Business CliparL Grin 
Graphics. Sports. Special 
Events Plus much more! 



1 "■-'■■ 
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Prices: 



Single Issue (Tape or Disk)... .$ 8.00 

2-5 ISSUES $6.00 

6-10 Issues $ 5.00 

1 1 or more Issues $ 4.50 

Graphic Sets $20 

All 120 Single Issues $250 

All 53 Public Domain Disks $145 

All Graphic Stes $140 



$6.00 
$5.00 Ea. 
$4.50 Ea. 
$4.00 Ea. 
$15 Ea. 
$125 
$75 
$70 



■ boat It. Theae 
are U» hot 



A110urSoftware(243Disks)... $379.00 $199 






Warp T&D Subscription Software »{■" 

Speed 2490 Miles Standish Drive " — 

r them Holland MI 49424 QedkOrd*. 

jp orders (616)399-9648 &P""™- 

l»TOt Fax: (616) 396-2744 HweCMe: tape or disk 
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ToulS 



